Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.04.25;
Скачать: CL | DM;

Вниз

Проблема с TFileStream   Найти похожие ветки 

 
Ivan Kohut   (2002-04-14 21:12) [0]

Уважаемые Мастера!
У меня возникла проблема с TFileStream
Вот фрагмент кода

var f1,f2:TFileStream;
s:string;
rez:string;
begin
f1:=TFileStream.Create("temp.txt",fmCreate);
setLength(s,10);
s:="1111155645";
f1.WriteBuffer(s,10);
f1.Free;

f2:=TFileStream.Create("temp.txt",fmOpenRead);
SetLength(rez,5);
f2.ReadBuffer(rez,5);
f2.Free;

И после етого rez="1111155645". А должно же быть "11111" ?
Помогите, если знаете где ошибка. Буду очень благодарен.


 
Anatoly Podgoretsky ©   (2002-04-14 21:26) [1]

Как решил, что это так?


 
Ivan Kohut   (2002-04-14 21:36) [2]

Через AddWatch...


 
Anatoly Podgoretsky ©   (2002-04-14 21:41) [3]

А через Length не пробовал?


 
Ivan Kohut   (2002-04-14 21:58) [4]

Да пробовал, пробовал...
Length(rez)=10 !!!!!!!!!!!!!!!!!!!!!!

И, еще а в файле то появляется после всего етого
E0F14400FCF61200AAFA (смотрел через Hex32)


 
Anatoly Podgoretsky ©   (2002-04-14 22:11) [5]

Да еще не мешало бы передать адресе буффера, а не адрес переменной с адресом буфера, x[1]


 
MBo ©   (2002-04-15 07:06) [6]

ты пишешь и читаешь не содержимое строки, а ее адрес, указатель, и при чтении получается rez- КОПИЯ s.
Решение - при чтении и записи делать, как Anatoly Podgoretsky сказал- s[1] и rez[1]


 
Ivan Kohut   (2002-04-15 10:23) [7]

Большое спасибо за помощь! Все заработало!



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

Текущий архив: 2002.04.25;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.014 c
3-80802
Glonia Zbanov
2002-04-05 10:58
2002.04.25
Народ! Обьясните конструкцию запроса.


14-81070
savva
2002-03-20 10:37
2002.04.25
Товарищи!! У нас есть возможность отличиться! (и пивка стребовать на халяву о-)) )


6-81028
kd
2002-01-11 10:13
2002.04.25
Мидас


1-80960
EsKor
2002-04-12 09:00
2002.04.25
Блокируется вывод в Edit в цикле


3-80746
RomanG
2002-04-02 13:16
2002.04.25
ODBC, MS SQL