simple for-schleife

[warefare]

ok posex könnte man doch dafür verwenden

hier der code falls es wen interessiert:

Code:

for i:= 0 to length(text) do

begin

if (text[i] = 'i') and (text[i+1] = 'm') and (text[i+2] = 'g') then begin

position_g := PosEx('img', text, i);
  ShowMessage('Gefunden an Stelle: ' + inttostr(position_g)  );

  s1 := TStringList.Create;  
  s1.Add(inttostr(position_g));
     refresh;
     memo1.lines.add(s1.text);
     //s1.clear;

     continue;

end

else
   continue;

end;




end;

funktioniert supi