Hallo Zusammen,
unter Delphi5 konnte ich mit FastReport4 zur Laufzeit eine Textdatei in ein MemoView laden.
Die Textdatei enthält wirklich planen Text.
Exakt das gleiche funktioniert unter Delphi XE2 nicht mehr. Vermutlich wegen
Unicode.
Schaue ich mir das Textfile mit Notepad an, ist alles in Ordnung. Lade ich den gleichen Text
in ein MemoView wie unten angezeigt, so sehe ich Chinesische Schriftzeichen.
Hat jemand eine Idee wie ich das umgehen kann?
Delphi-Quellcode:
procedure TfrmReport.frxReport1BeginDoc(Sender: TObject);
begin
inherited;
case aReportFormular of
rfSEPALastschriftProtokoll: SetTextFileInMemoView('TextDatei',PrgPath+'\SEPA\ErgebnisLast.txt');
end;
end;
{--------------------------------------------------------------------}
{}procedure TfrmReport.SetTextFileInMemoView(ObjectName,Datei:String);
{--------------------------------------------------------------------}
begin
with TfrxMemoView(frxreport1.findobject( ObjectName )) do
begin
if FileExists(Datei) then
begin
Visible := true;
Memo.clear;
Memo.LoadFromFile(Datei);
end;{if}
end;{with}
end;{SetTextFileInMemoView}
Gruß Kostas