|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#16
|
||||
|
||||
Цитата:
Код:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; t: TStream; i:integer; m: array[1..10] of double; f: textfile; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin t := TMemoryStream.Create; AssignFIle(F,'D:\file.txt'); Rewrite(f); for i:= 1 to 10 do begin m[i]:= (i)*(3.475*2.875); Writeln(f, m[i],';'); end; CloseFile(f); t.Free; end; end. Только вот не понял зачем тут Код:
t: TStream; В начале был Бит, потом Байт и только потом появилось Слово... Последний раз редактировалось NIch, 20.01.2010 в 22:48. |