So kannst du eine Datei mit
UniCode laden:
Delphi-Quellcode:
procedure LoadTextFile(List: TStrings; Filename: TFileName);
var
S: String;
W: WideString;
begin
with TFileStream.Create(Filename, fmOpenRead or fmShareDenyWrite) do
try
SetLength(W, Size shr 1);
Read(W[1], Size);
S := Utf8Encode(W);
List.Text := Utf8ToAnsi(S);
finally
Free;
end;
end;
//Aufruf:
LoadTextFile(Memo1.Lines, 'D:\test.txt');
Beim nächsten mal bitte vorher mal suchen, dazu gibts hier ne Menge
