Здравствуйте, у меня есть файл в котором хранятся значения фигуры (figure.txt).
Цитата:
2.12151364375213E+0001
-4.65241027215574E-0001
1.24533965323114E+0001
2.21470432354003E+0001
-1.35650478231506E+0001
5.17833965543514E+0001
2.52214176162443E+0001
-1.15183292003216E+0001
3.76599590303214E+0001
2.57543176121343E+0001
-1.12383293127446E+0001
|
С помощью Delphi я загружаю этот файл и считываю содержимое файла, а потом сохраняю значения в разные документы.A,B,C. После сохранения если открыть документы “a.txt, b.txt и c.txt”, то я получу следующее содержимое.
Документ “a.txt”
Цитата:
21,2151364375213
22,1470432354003
25,2214176162443
25,7543176121343
|
Документ “b.txt”
Цитата:
-0,465241027215574
-13,5650478231506
-11,5183292003216
-11,2383293127446
|
Документ “c.txt”
Цитата:
12,4533965323114
51,7833965543514
37,6599590303214
0
|
Вопрос: Как содержимое изначального документ figure.txt преобразовывается в цифры которые записываются в исходный файл? Наверное существует какая-то формула или специальный парсинг этих чисел. Мне интересен исходный код, этого преобразования.
Вот мой пример:
Код:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
f:TextFile;
implementation
{$R *.dfm}
procedure SaveToFile(file1:string;str:string);
var
f:TextFile;
FileDir:String;
begin
FileDir:='c:\docum\'+file1;
AssignFile(f,FileDir);
if not FileExists(FileDir) then
begin
Rewrite(f);
CloseFile(f);
end;
Append(f);
Writeln(f,str);
Flush(f);
CloseFile(f);
end;
procedure TForm1.FormShow(Sender: TObject);
var
a,b,c:Extended;
begin
AssignFile(f,'figure.txt');
Reset(f);
while not EOF(f) do
begin
Read(f,a,b,c);
SaveToFile('a.txt',FloatToStr(a));
SaveToFile('b.txt',FloatToStr(b));
SaveToFile('c.txt',FloatToStr(c));
end;
CloseFile(f);
end;
end.