[Pegasus]

Вот функция подобию Scanf() В С++.
Шустро работает, но может можно проще?

Код:

Function ScanFile(FileN : String; Line, Row : integer): String;
var
List : TStringList; Tstr : String; Rstr : array[1..100] of String; i, n : integer;
begin

n := 1;
List := TStringList.Create;
List.LoadFromFile(FileN);
Tstr := List.Strings[Line];

for i := 1 to Length(Tstr) do
begin
if copy(Uppercase(Tstr), i, 1) <> ' ' then
Rstr[n] := Rstr[n] + copy(Uppercase(Tstr), i, 1)
else
if copy(Uppercase(Tstr), i+1, 1) <> ' ' then
n := n + 1;
end;

result := Rstr[Row];
List.Destroy;
end;

///

Edit1.text := ScanFile(Путь к файлу, стока, помер переменной):

Admin: Еще раз напоминаю о правилах оформления кода, далее будут применяться санкции!

1 2 3 4 5 - это помер переменной.
"1000 2000 3000 4000 блабла"

Это так к слову!