Ja, POS ist wirklich toll, aber TimerTims erste Frage wurde nicht beantwortet - bis jetzt...
Zitat von
TimerTim:
Delphi-Quellcode:
procedure TxtInStr(Str: String; Txt: String);
var i: Integer;
begin
For i := 1 To Length(Str) Do If Copy(Str, i, i + Length(Txt) - 1) = Txt Then Found := True;
end;
Was habe ich falsch gemacht?
function Copy(S; Index, Count: Integer): string;
Count ist interessant! Das ist die Anzahl der Zeichen, die kopiert werden sollen... Muss in deinem Beispiel immer gleich sein... und zwar length(Txt) -->
Delphi-Quellcode:
procedure TxtInStr(Str: String; Txt: String);
var i: Integer;
begin
For i := 1 To Length(Str) Do If Copy(Str, i, Length(Txt)) = Txt Then Found := True;
end;