Форум: "KOL";
Текущий архив: 2007.06.17;
Скачать: [xml.tar.bz2];
Внизоткрытие файла в 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 вся ветка
Форум: "KOL";
Текущий архив: 2007.06.17;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.04 c