В строке числа разделены пробелами . . .
Имеется тестовый файл, в котором есть несколько строк (~15). Пример одной из строк: 1993 8 1 43 145 1.290 0.95 0.95 0.95 52.8 1.08. Нужно каждое число засунуть в свою переменную. Алгоритм простой - найди пробелы и запиши межпробельные участки как числа. А вот как реализовать на D5 - никак не могу придумать.
Подскажите, кто знает. Заранее благодарен.
Сергей. [email]leyftd@mail.ru[/email]
Подскажите, кто знает. Заранее благодарен.
Сергей. [email]leyftd@mail.ru[/email]
procedure Proceed(s:String; idx : integer);
var
num : String;
dbl : real;
begin
if Length(s) = 0 then exit;
num := Copy(s,1,idx);
dbl := StrToFloat(num);
Form1.Caption := FloatToStr(dbl);
MessageDlg(num,mtError,[mbOk],0);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
s : String;
idx : integer;
begin
s:='1993 8 1 43 145 1.290 0.95 0.95 0.95 52.8 1.08';
DecimalSeparator := '.';
while(TRUE) do
begin
idx := Pos(' ',s);
if(idx = 0) then
begin
if Length(s) > 0 then Proceed(s, Length(s));
break;
end;
Proceed(s, idx - 1);
s := Copy(s,idx + 1, Length(s));
end;
end;
var
num : String;
dbl : real;
begin
if Length(s) = 0 then exit;
num := Copy(s,1,idx);
dbl := StrToFloat(num);
Form1.Caption := FloatToStr(dbl);
MessageDlg(num,mtError,[mbOk],0);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
s : String;
idx : integer;
begin
s:='1993 8 1 43 145 1.290 0.95 0.95 0.95 52.8 1.08';
DecimalSeparator := '.';
while(TRUE) do
begin
idx := Pos(' ',s);
if(idx = 0) then
begin
if Length(s) > 0 then Proceed(s, Length(s));
break;
end;
Proceed(s, idx - 1);
s := Copy(s,idx + 1, Length(s));
end;
end;
А не проще сделать
var x:real;
file:textfile;
...
for i:=1 to n do read(file,x);
var x:real;
file:textfile;
...
for i:=1 to n do read(file,x);
Цитата:
Originally posted by Minx
А не проще сделать
var x:real;
file:textfile;
...
for i:=1 to n do read(file,x);
А не проще сделать
var x:real;
file:textfile;
...
for i:=1 to n do read(file,x);
сдаюсь :) проще.
но вопрос стоял - подскажите алгоритм...
Иногда приходится пользователям объяснять то, чего они от тебя хотят.