TOpenTextFileDialog (D2k5)

[turboPASCAL]

TOpenTextFileDialog ist nur ein TOpenFileDialog mit Extras. Die Codierung des Textes musst du selbst vornehmen, je nachnem was der OpenTextFileDialog.EncodingIndex zurückgibt.

Delphi-Quellcode:

procedure ...;
begin
  if OpenTextFileDialog1.Execute then
    if  OpenTextFileDialog1.Encodings[OpenTextFileDialog1.EncodingIndex] =
      OpenTextFileDialog1.Encodings[0] then //ANSI ?
    begin
      Memo1.OEMConvert := False;
      Memo1.Lines.LoadFromFile(OpenTextFileDialog1.FileName);
    end else
    if  OpenTextFileDialog1.Encodings[OpenTextFileDialog1.EncodingIndex] =
      OpenTextFileDialog1.Encodings[1] then //ANSII ?
    begin
      Memo1.OEMConvert := True;
      Memo1.Lines.LoadFromFile(OpenTextFileDialog1.FileName);
    end else
    if  OpenTextFileDialog1.Encodings[OpenTextFileDialog1.EncodingIndex] =
      OpenTextFileDialog1.Encodings[2] then //Unicode ?
    begin
      //...
    end; // else ...
end;

Siehe dazu: http://www.dsdt.info/grundlagen/codes/asciiansi.php