Форум АНТИЧАТ - Показать сообщение отдельно

Цитата:

Сообщение от flacs

в мемо оно не будет корректно отображаца, ИБО есть нуль-терминайт символы в файле (#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;

Конечно, это жутко медленный и нубско-ламерский способ, но по крайней мере воркает =/

Не воркает))))))))))))