[azexp]

приветствую, кто может помочь
нужна программа которая будет работать в таком виде

в текстовом документе по идут цифры:
940394030
438893488
094343934

а для работы нужны только первые 6 цифр

в какую сторону смотреть чтоб сделать такое дело?
сам в программировании 0

[poli-smen]

Сообщение от azexp

в текстовом документе по идут цифры:
940394030
438893488
094343934

а для работы нужны только первые 6 цифр

в какую сторону смотреть чтоб сделать такое дело?

Функция Copy копирует из строки подстроку указанной длины из указанной позиции.
Например:

Код:

1 2 3 4 5 6 7 8

procedure TForm1.Button1Click(Sender: TObject); var   s: String; begin   s := '940394030';   s := Copy(s, 1, 6);   ShowMessage(s); end;

Покажет сообщение "940394" (т.е. первые 6 цифр из первоначальной строки)

[NumLock]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

type   TNumLockMagic = record     case Integer of       10: (         s10: array [0..9] of Char;       );       5: (         s5: array [0..4] of Char;       );       1: (         s1: array [0..0] of Char;       );   end; var   nl: TNumLockMagic; begin   nl.s10:='_123456789';   ShowMessage(nl.s10);   ShowMessage(nl.s5);   ShowMessage(nl.s1); end;