Показать сообщение отдельно
  #3  
Старый 06.10.2013, 12:53
Аватар для @Rafa3L
@Rafa3L @Rafa3L вне форума
Начинающий
 
Регистрация: 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
__________________
Помогаю платно.
Помогаю иногда бесплатно.
Ответить с цитированием