#$d#$a -> \n

[rowkajjh]

Hallo,

ich suche in einem Text nach der ersten Leerzeile. Mach ich mit

if msg[i]='' then break; Funktioniert auch. Leider enthält der Text teilweise anstelle von "echten" Newlines manchmal "#$D#$A". Beim wegspeichern werden die brav nach CRLF umgewandelt. Leider schaffe ich aber nicht, diese beim Suchen zu beachten. Obiger Vergleich funktioniert ja nicht, das msg[i] ja nicht '' ist, sondern '#$D#$AWeiterer Text'. Ich habe schon mit Pos und Comparestr versucht - leider keinen Erfolg. Was kann ich tun?

Kompletter Code:

Delphi-Quellcode:

// Suche nach erster Leerzeilen
for i:=0 to msg.Count-1 do begin
    if msg[i]='' then break; // end of header
    if (Length(msg[i])>6) then
    begin
      if (CompareStr('#$D#$A', msg[i])=0) then
      begin
        MessageDlg('Leerzeile! ', mtError, [mbOK], 0);
        break;
      end;
    end;
end;

Danke!