Картинки в Memo загрузить нельзя.
Добавлено через 12 минут и 15 секунд
Осмелюсь предположить что человек хочет чтобы картинка отображалась как при F3 в тотале, если выбрана настройка 1-Текст.
Тогда вам надо сначала открыть файл как текстовый:
| Код |
var
F: TextFile;
begin
assignfile(F, FileName);// открыть (или загрузить, не знаю как правильно) файл
reset(F); // сброс позиции чтения файла, на всякий случай
end;
|
А потом построчно читать из него и заносить результат в мемо:
| Код |
var
s1: string;
begin
while not eof(f) do // eof(f) - поиск признака конца файла. Соответственно while not eof(f) do - выполнять, пока не будет достигнут конец файла
begin
readln(F, s1);// Считать очередную строку из файла и поместить её в s1
Memo1.Lines.Add(s1);
end;
end;
|
|