открытие файла в memo

← →
Blackie (2006-11-01 17:50) [0]

В результате выполнения следующей процедуры текст в memo из архива не открывается. В editbox1 хранится путь до папки, в listbox - файлы этой папки. Само значение ф-и RE_LoadFromFile после выполнения true.
procedure TForm1.ListBox1MouseDblClk(Sender: PControl; var Mouse: TMouseEventData); begin editbox3.Text:=editbox1.Text+"\"+listbox1.items[listbox1.curindex]; memo1.RE_LoadFromFile(editbox1.Text+"\"+listbox1.items[listbox1.curindex],reText,false) end;
Что я не так делаю?

← →
D[u]fa © (2006-11-01 19:25) [1]

для мемо на по др. делать, Memo1.Text:= StrLoadFromFile("....");

← →
Vladimir Kladov (2006-11-01 19:30) [2]

в мемо или в rich edit?

← →
Vladimir Kladov (2006-11-01 19:32) [3]

...не успел

← →
Blackie (2006-11-01 22:13) [4]

А вот еще код, тоже не работает.
procedure TForm1.ListBox1MouseDblClk(Sender: PControl; var Mouse: TMouseEventData); var f:file; a:byte; begin editbox3.Text:=editbox1.Text+"\"+listbox1.items[listbox1.curindex]; assignfile(f,editbox3.text); reset(f,1); while not(eof(f)) do begin blockread(f,a,1); if a mod 2=0 then memo1.text:=memo1.Text+chr(a); end; closefile(f); end;
Пишет "Runtime error 5 at 00406E0D".

← →
Ketmar © (2006-11-01 22:51) [5]

файл кем-то занят?

← →
Blackie (2006-11-02 18:06) [6]

да нет, обычные файлы, вообще не открытые в системе. просто тренировочный пример.

← →
Ketmar © (2006-11-02 18:18) [7]

>[6] Blackie 2-Nov-2006, 18:06
>да нет, обычные файлы, вообще не открытые в системе.
>просто тренировочный пример.
значит, прав нет.

← →
MTsv DN © (2006-11-02 18:57) [8]

assignfile(f,editbox3.text); FileMode := 0; reset(f,1);
Добавьте выделенную строчку...

← →
Ketmar © (2006-11-02 19:01) [9]

>[8] MTsv DN(c) 2-Nov-2006, 18:57
>Добавьте выделенную строчку...
лучше FileMode := $20. для чтения самое то.

← →
D[u]fa © (2006-11-02 19:32) [10]

лучше FileOpen, FileRead.... =)

← →
Vladimir Kladov (2006-11-02 19:41) [11]

...и сравните размер экзешника. "Стандартные" Паскалевские read/write увеличивают код довольно изрядно.

>[11] Vladimir Kladov 2-Nov-2006, 19:41
>...и сравните размер экзешника. "Стандартные" Паскалевские
>read/write увеличивают код довольно изрядно.
ну, для просто file -- вообще проще WinAPI использовать. а вот для Text писать самому лениво. %-)

← →
Vladimir Kladov (2006-11-02 19:46) [13]

Вообще есть ф-ция File2Str - меньше просто не придумать:
Memo.Text := File2Str( filepath );

Ketmar, дык все написано уже %)

File2Str
StrLoadFromFile
StrSaveToFile.... и т.д.

← →
Blackie (2006-11-03 02:48) [15]

да, все работает. спасибо. только при открытии больших файлов подвисает (~250 Кб).

← →
Blackie (2006-11-03 02:54) [16]

то есть я для этого использовал все тот же код по выводу символов с кодом кратным 2. зависло.

открытие файла в memo Найти похожие ветки