Format

[malevich]

Прошу помощи:

допустим есть число 600. Как его напечать в файл в таком формате 0.60000D+03

Спасибо!

[zetrix]

Сообщение от malevich

Прошу помощи:

допустим есть число 600. Как его напечать в файл в таком формате 0.60000D+03
Спасибо!

Решалось "в лоб":

procedure TForm1.Button1Click(Sender: TObject);
var f:textfile;
     x:integer;
     y:real;
begin
assignfile(f,'C:\111.txt');
rewrite(f);
x:=600;
y:=x;
writeln(f,y);
closefile(f);
end;

В файле получилось вот это: 6.00000000000000E+0002

[malevich]

Сообщение от zetrix

Решалось "в лоб":

procedure TForm1.Button1Click(Sender: TObject);
var f:textfile;
     x:integer;
     y:real;
begin
assignfile(f,'C:\111.txt');
rewrite(f);
x:=600;
y:=x;
writeln(f,y);
closefile(f);
end;

В файле получилось вот это: 6.00000000000000E+0002

Спасибо. Это то я знаю. Мне нужно чтобы вместо E было D (но это можно и решить программно: открыть файл и заменить) и число знаков после запятой было задано, как например в фортране 1dp12.5 (12 символов всего, 5 после запятой). В делфи есть что-то вроде этого?

[zetrix]

есть такое, допустим writeln(f,real:5:2) - 2 знака после запятой, 5 отступов слева, если целая часть больше 5 символов, то ничего не обрезается. Так вот при этом подходе нету ни Е, ни D, т.е. r:=30; writeln(f,r:3:2);
будет "_30.00". Так же можно это сделать и в format, но чтоб было и степень и число знаков после запятой, я не знаю.

[malevich]

и на этом спасибо. Ладно, будем фортраном конвертировать в нужный формат .
С наступающим.....

[-=DeS=-]

ещё попробуй почитать про функцию formatfloat вроде так...