Проблемки с файлами

← →
Monak (2003-03-04 22:53) [0]

У меня в процедуре написано

var hnd:integer; buf:Pchar; begin opendialog1.execute; hnd:=fileopen(opendialog1.filename,fmOpenRead); fileseek(hnd,1,0); fileRead(hnd,buf,15); Memo1.Lines.Add(strpas(buf)); fileclose(hnd); form1.Repaint;

Всё было бы хорошо, если бы не было так грустно!! Первое: он ни хрена не читает, а второе - прога виснет по окончании проц.!

← →
MBo © (2003-03-04 22:59) [1]

А кто будет память под PChar выделять?

← →
Palladin © (2003-03-04 23:00) [2]

а так не пробовал?
var
f:file;
s:string;
begin
if opendialog1.execute then
begin
assignfile(f,opendialog1.filename);reset(f,1);
setlength(s,15);
blockread(f,s[1],15);
closefile(f);
memo1.lines.add(s);
end;

← →
Monak (2003-03-04 23:14) [3]

>Paladin
Спасибо, я наверно не умею работать с файлами в старом стиле!! Мне интересна конкретная проблема при работе в стиле Windows!

К Пушкину Александр Сергеевичу

← →
Monak (2003-03-04 23:34) [5]

>Anatoly Podgoretsky
Ты что-нибудь другое знаешь??

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