|
#1
|
|||
|
|||
программа
приветствую, кто может помочь
нужна программа которая будет работать в таком виде в текстовом документе по идут цифры: 940394030 438893488 094343934 а для работы нужны только первые 6 цифр в какую сторону смотреть чтоб сделать такое дело? сам в программировании 0 |
#2
|
||||
|
||||
Цитата:
Например: Код:
procedure TForm1.Button1Click(Sender: TObject); var s: String; begin s := '940394030'; s := Copy(s, 1, 6); ShowMessage(s); end; |
#3
|
||||
|
||||
Код:
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; Пишу программы за еду. __________________ |