Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

записать переменную в файл

LexXL © (2006-11-08 09:51:00)
нужно записать переменную в файл (пользуя TFileStream) примеры не работают:
procedure TForm1.Button1Click(Sender: TObject); var stream:TFileStream; ans:ansistring; sFilename:string; begin sFilename:='c:\1.txt'; ans:='123456789'; Stream.Create(sFilename, fmOpenReadWrite or fmCreate); try Stream.Write(ans, length(ans)); //Stream.Write(ans, sizeof(ans)); - и так пробовал //Stream.Write(Pchar(ans)^, sizeof(ans)); - и так пробовал //Stream.Write(Pchar(ans)^, length(ans)); - и так пробовал finally stream.free; end; end;

Ketmar (2006-11-08 11:07:00) [1]
>[7] LexXL(c) 8-Nov-2006, 10:32
>Percent - я не просил кода, если ты заметил я прежде чем
>кинул вопрос "потренировался" и сдался не сразу...
оно и видно, что упорный. вместо один раз почитать справку идешь вслед за доблестными китайскими комсомольцами.

Percent (2006-11-08 10:37:00) [2]
Ладно... проехали.

Percent (2006-11-08 10:36:00) [3]
примеры не работают

Ты писал?

LexXL (2006-11-08 10:35:00) [4]
я и написал что - глупо получилось

Anatoly Podgoretsky (2006-11-08 10:34:00) [5]
> LexXL (08.11.2006 10:17:02) [2]

А объекты Пушкин будет создавать.

Anatoly Podgoretsky (2006-11-08 10:34:00) [6]
> LexXL (08.11.2006 10:17:02) [2]

> LexXL (08.11.2006 10:17:02) [2]

А объекты Пушкин будет создавать.

LexXL (2006-11-08 10:32:00) [7]
Percent - я не просил кода, если ты заметил я прежде чем кинул вопрос "потренировался" и сдался не сразу...
всем ответившим спасибо, согласен что получилось глупо но я запарился, начал рыть в другом направлении..

Percent (2006-11-08 10:22:00) [8]
Вот они, последствия "не умничайте тут, дайте код!"...

ЮЮ (2006-11-08 10:21:00) [9]
записалосьбы, если бы вместо
Stream.Create(sFilename, fmOpenReadWrite or fmCreate);
было
stream := TFileStream.Create(sFilename, fmOpenReadWrite or fmCreate);

З.Ы. Однако считывать строку, не зная её длины, будет затруднительно. Конечно, если там будет храниться ещё что-то, кроме одной строки

Percent (2006-11-08 10:20:00) [10]
Stream := TFileStream.Create(sFilename, fmOpenReadWrite or fmCreate);

Сергей М. (2006-11-08 10:20:00) [11]

> LexXL © (08.11.06 10:17) [2]

> Stream.Create(sFilename, fmOpenReadWrite or fmCreate);

Это что за галиматья ?
Ты сам-то понимаешь, что ты в этой строчке пытаешься сотворить ?

LexXL (2006-11-08 10:17:00) [12]
не не раб хоть убей не раб, пробал даже перегружаться
Access violation at address .... in module ..... Write of address 00000002

MBo (2006-11-08 09:58:00) [13]
//Stream.Write(Pchar(ans)^, length(ans)); - и так пробовал
значит, плохо пробовал, в этом варианте содержимое строки запишется в файл.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »