18.08.2009, 11:25
|
|
Познающий
Регистрация: 28.01.2009
Сообщений: 90
С нами:
9096406
Репутация:
80
|
|
в мемо оно не будет корректно отображаца, ИБО есть нуль-терминайт символы в файле (#00)
если только читать файл посимвольно, и записывать только значимые символы, отсекая то что в МЕМО может некорректно отображаца
Код:
var
c: char;
data: string;
begin
AssignFile(f,'путь');
Reset(f);
while not eof (f) do begin
Read(f,c);
case c of
0..9,A..Z, a..z, #32: data:=data+c; // те символы которые тру отображаются
end;
end;
CloseFile(f);
Memo1.text:=data;
end;
Конечно, это жутко медленный и нубско-ламерский способ, но по крайней мере воркает =/ |
|
|