Forum: Object-Pascal / Delphi-Language
Delphi
by himitsu,
16. Mär 2006
if Pos(xyz, s) <> 0 then begin
repeat
...
until Pos(xyz, s) = 0;
end;
wie wäre es damit?
while Pos(xyz, s) <> 0 do begin
...
end;
Forum: Object-Pascal / Delphi-Language
Delphi
by himitsu,
15. Mär 2006
POS?
xyz:='hallo';
s:='hallo, peter, wie geht es dir?';
if Pos(xyz, s) <> 0 then JuppIsDrin;
Und wenn die Groß-/Kleinschreibung egal sein soll, dann kan man ja auch die Groß-/Kleinschreibung vorher noch auf ein einheitliches Maß bringen :)
if Pos(AnsiLowerCase(xyz), AnsiLowerCase(s)) <> 0 then JuppIsDrin;