Текущий архив: 2003.03.17;
Скачать: CL | DM;
Вниз
Проблемки с файлами Найти похожие ветки
← →
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!
← →
Anatoly Podgoretsky © (2003-03-04 23:15) [4]К Пушкину Александр Сергеевичу
← →
Monak (2003-03-04 23:34) [5]>Anatoly Podgoretsky
Ты что-нибудь другое знаешь??
Страницы: 1 вся ветка
Текущий архив: 2003.03.17;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.021 c
