StringReplace im Memo

[erich.wanker]

Hallo Leute...
um einen HTML Code von den nervigen "cid"-Einträgen zu befreien such ich eine Möglichkeit - folgende 2 Einträge zu verändern:


1. src="cid:1234567890"
2. src="cid:image001.jpg@1234567890"


sollte ergeben

1. src="1234567890"
2. src="image001.jpg"

Das 1.ist kein Problem (hoffe ich)-

Delphi-Quellcode:

for x:=0 to memo1.Lines.Count-1 do
  begin
    memo1_text:=memo1.Lines[x];
    StringReplace(memo1_text, 'src="cid:', 'src="',[rfReplaceAll]);

Das 2. ist Momentan noch ein kleines Rätsel für mich

Hat jemand eine Lösung?
Erich