Steuerzeichen beim einlesen von der COM-Schnittstelle

[user0815]

Die Text Datei in Memo1 kopiert:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  sl : TStringList;
  i : Integer;
begin
  sl := TStringList.Create;

  try
    sl.AddStrings(Memo1.Lines);

    for i := 0 to sl.Count -1 do
    begin
      sl[i] := trim(StringReplace(sl[i], #$D,  '',  [rfReplaceAll]));
      sl[i] := StringReplace(sl[i], #129, 'ü', [rfReplaceAll]);
      sl[i] := StringReplace(sl[i], #132, 'ä', [rfReplaceAll]);
      sl[i] := StringReplace(sl[i], #142, 'Ä', [rfReplaceAll]);
      sl[i] := StringReplace(sl[i], #148, 'ö', [rfReplaceAll]);
      sl[i] := StringReplace(sl[i], #153, 'Ö', [rfReplaceAll]);
      sl[i] := StringReplace(sl[i], #154, 'Ü', [rfReplaceAll]);

      sl[i] := StringReplace(sl[i], #10#13, ' ', [rfReplaceAll]);

      if sl[i] <> ''
       then Memo2.Lines.Append(SL[i]);
    end;

  finally
    sl.Free;
  end;
end;

Ausgabe:

102 01.02.00 21:05 ID: 2
Codebetrieb EIN
Codebetrieb
103 01.02.00 21:05
ABSCHALT. äUEE
Alle Übertragungseinr.
104 01.02.00 21:05
ABSCHALT. äSG
Alle Steuergruppen
105 01.02.00 21:05
ABSCHALT. äZ-TBL

usw.