*.txt lässt sich nicht öffnen

[Fussball-Robby]

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