[Katerina1993]

Здравствуйте, у меня есть файл в котором хранятся значения фигуры (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.

[Kailon]

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

Наверное существует какая-то формула или специальный парсинг этих чисел. Мне интересен исходный код, этого преобразования.

Какую формулу Вы тут хотите увидеть? У Вас в исходном файле представлена экспоненциальная запись числа. Число до буквы Е умножается на 10 в степени 1 или -1, вот и всё. Конкретно в Вашем случае запятая переносится на один знак влево (при -1) или в право (при 1).

[Katerina1993]

Спасибо, разобралась