Архив форумов ЦИТФорума

[qwerty1]

Помогите пожалуйста. как считать значения из файла, который выглядит так:
1, 0.75, 3, 5.55
и т.д.
Занести эти значения в массив. Я в Паскале не силен, но это очень нужно. Как отбросить при считывании запятые?

[qwant]

Есть много способов и технологий в гнигах описываются.
Самый легкий способ это процедуры
readln(f,s) and writeLn(f,s); соответствено

procedure TForm1.Button1Click(Sender: TObject);
var f: Textfile;
begin
try
assignfile(f,'proba.txt');
rewrite(f);
Writeln(f,'10');
Writeln(f,'20');
Writeln(f,'30');
Writeln(f,'40');
Writeln(f,'50');
Writeln(f,'60')
finally
closefile(f)
end
end;

procedure TForm1.Button2Click(Sender: TObject);
var f: Textfile;
s: string;
begin
try
assignfile(f,'proba.txt');
reset(f);
While not eof(f) do begin
readLn(f,s); Memo2.Lines.Add(s) end
finally
closefile(f)
end
end;

StrToInt - строка в целое
StrToFloat - строка в вещественое и наоборот