![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
![]() Здравствуйте!
Подскажите пожалуйста как можно реализовать чтение txt файла построчно, при этом в каждой строке находятся две переменные разделенные пробелом . Например 0 1 1 2 и т.д При этом требуется, чтобы считанные переменные обрабатывались в цикле |
#2
|
||||
|
||||
![]() Readln
Reads a line of text from a file. Пишу программы за еду. __________________ |
#3
|
||||
|
||||
![]() Код:
procedure TForm1.Button1Click(Sender: TObject); var sl: TStrings; s: string; m: array of array of integer; i: integer; begin sl:= TStringList.Create; sl.LoadFromFile('SomeText.txt'); SetLength(m, 2, sl.Count); for i:=0 to sl.Count - 1 do begin s:= sl.Strings[i]; m[0, i]:= StrToInt(Copy(s, 1, Pos(' ', s)-1)); m[1, i]:= StrToInt(Copy(s, Pos(' ', s), Length(s))); end; sl.Free; end; 4250 Помогаю платно. Помогаю иногда бесплатно. |