AssignFile

[Claster]

Уважаемы программисты обьясните Чайнику что не так x1 и x2 после вычисления являються числовыми данными (Double). Обьясните как правильно записать данные в файл

procedure TForm1.BitBtn1Click(Sender: TObject);
var
myFile : File;

begin
// открыть файл Rez.txt для записи
AssignFile(myFile, 'Rez.txt');
ReWrite(myFile);

// Запись данных в файл
WriteLn(myFile, x1);
WriteLn(myFile, x2);

// Закрытие файла
CloseFile(myFile);
end;

end.

[_Dmitry]

var
myFile : TextFile;

[puporev]

myFile : File;

нужно myFile : TextFile;
иначе нельзя использовать writeln(myFile, x1);

[Claster]

Большое спасибо

ещё вопрос переменую X1 и X2 вычисляю так, и делаю округление
x1:=-b+sqrt(d)/2*a;
f1:=RoundTo(x1, -2);
x2:=-b-sqrt(d)/2*a;
f2:=RoundTo(x2, -2);

К примеру f1=339,47 а в файл записует 3.39470000000000E+0002 в чём проблема.

Может тип непраивльно указан в var f1: double???

[puporev]

Дак в файл то записывай не x1,x2, а f1,f2.

[Claster]

Я так и записую!!!

WriteLn(myFile, f1);
WriteLn(myFile, f2);
writeLn(myFile, f3);

и всеровно

[puporev]

Кстати при записи в текстовый файл форматирование надо делать как в консоли:
WriteLn(myFile, x1:0:2);
WriteLn(myFile, x2:0:2);
А rondto, это при выводе в компоненты Delphi

[Claster]

ОЙЙЙЙ получилось Спасибки большое.

Ещё 1 вопрос, как его теперь открыть для просмотра (Пробовал через ShellExecute, ну сдесь надо указывать конкретный путь к файлу) а как сделать что бы без указания пути на открытие.

[puporev]

Самое простое прочитать его например в Мемо.
Memo2.Lines.LoadfromFile('Rez.txt') ;
Это если файл в одной папке с программой.

[Claster]

Большое спасибо!