Форум: "Начинающим";
Текущий архив: 2006.11.26;
Скачать: [xml.tar.bz2];
Вниз
записать переменную в файл Найти похожие ветки
← →
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 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.11.26;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.045 c
