![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | 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 |