Скачать: CL | DM;

открытие файла в 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 увеличивают код довольно изрядно.

---

← →
Ketmar ©   (2006-11-02 19:43) [12]

>[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 );

---

← →
D[u]fa ©   (2006-11-02 23:27) [14]

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

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

---

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

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

---

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

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

---

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

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.012 c