|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Как происходит преобразования чисел из данных внешнего документа figure.txt?
Здравствуйте, у меня есть файл в котором хранятся значения фигуры (figure.txt).
Цитата:
Документ “a.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. |