Скачать: CL | DM;

записать переменную в файл   Найти похожие ветки 

← →
LexXL ©   (2006-11-08 09:51) [0]

нужно записать переменную в файл (пользуя 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;


---

← →
MBo ©   (2006-11-08 09:58) [1]

//Stream.Write(Pchar(ans)^, length(ans)); - и так пробовал
значит, плохо пробовал, в этом варианте содержимое строки запишется в файл.

---

← →
LexXL ©   (2006-11-08 10:17) [2]

не не раб хоть убей не раб, пробал даже перегружаться
Access violation at address .... in module ..... Write of address 00000002

---

← →
Percent   (2006-11-08 10:20) [3]

Stream := TFileStream.Create(sFilename,  fmOpenReadWrite or fmCreate);

---

← →
Сергей М. ©   (2006-11-08 10:20) [4]

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


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


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

---

← →
ЮЮ ©   (2006-11-08 10:21) [5]

записалосьбы, если бы вместо
 Stream.Create(sFilename,  fmOpenReadWrite or fmCreate);
было
 stream := TFileStream.Create(sFilename,  fmOpenReadWrite or fmCreate);

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

---

← →
Percent   (2006-11-08 10:22) [6]

Вот они, последствия "не умничайте тут, дайте код!"...

---

← →
LexXL ©   (2006-11-08 10:32) [7]

Percent - я не просил кода, если ты заметил я прежде чем кинул вопрос "потренировался" и сдался не сразу...
всем ответившим спасибо, согласен что получилось глупо но я запарился, начал рыть в другом направлении..

---

← →
Anatoly Podgoretsky ©   (2006-11-08 10:34) [8]

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

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

---

← →
Anatoly Podgoretsky ©   (2006-11-08 10:34) [9]

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

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

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

---

← →
LexXL ©   (2006-11-08 10:35) [10]

я и написал что - глупо получилось

---

← →
Percent   (2006-11-08 10:36) [11]

примеры не работают

Ты писал?

---

← →
Percent   (2006-11-08 10:37) [12]

Ладно... проехали.

---

← →
Ketmar ©   (2006-11-08 11:07) [13]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.028 c