
06.10.2013, 12:53
|
 |
Начинающий
|
|
Регистрация: 09.11.2011
Адрес: Москва
Сообщения: 144
Версия Delphi: XE2
Репутация: 11216
|
|
Код:
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
__________________
Помогаю платно.
Помогаю иногда бесплатно.
|