Форум: "Основная";
Текущий архив: 2003.03.17;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.008 c