Вот функция подобию 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 блабла"
Это так к слову!