#13#10 bei Datenempfang mit TApdComPort

[oki]

Hi marabu,

leider nicht. Ich füge den String wie folgt ins Memo ein:

Delphi-Quellcode:

procedure TLogForm.Add(Sender: TObject; Data, AdditionalData: string);
var HeaderString, DataString : string;
  function DeleteChar(OldString : String; AChar : Char) : String;
  var Counter : Integer;
  begin
    Result := '';
    for Counter := 1 to Length(OldString) do
      if OldString[Counter] <> AChar then
        Result := Result + OldString[Counter];
  end;
begin
  if not EnableLog then
    Exit;
  RichEdit1.Lines.Add(BlockHeaderStr);
  HeaderString := '';
  if EnableLogTime then
    HeaderString := '[' + FormatDateTime('dd.mm.yyyy hh:nn:ss:zzz', Now) + ']';
  if EnableLogSender then
    HeaderString := HeaderString + Format('[Sender: %s ]',  [Sender.ClassName]);
  if FEnableAdditionalLogData then
    HeaderString := HeaderString + Format('[Additional: %s ]',  [AdditionalData]);
  if HeaderString <> '' then
    RichEdit1.Lines.Add(HeaderString);
  DataString := DeleteChar(Data, #0);
  RichEdit1.Lines.Add(DataString);
  RichEdit1.Lines.Add(BlockFooterStr);
end;

Dadurch, dass ich Kopf- und Fußzeile mit eintrage kann ich eindeutig sehen, dass das ODOA im Datenstring enthalten ist.

gruß oki