[azexp]

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

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

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

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

[poli-smen]

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

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

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

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

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

Код:

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

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

[NumLock]

Код:

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;