Code: for I := 0 to 0 do
begin
if StrPos(PChar(Edit1.Text), PChar(Edit2.Text)) <> nil then
ShowMessage('Substring found')
else
ShowMessage('Substring not found');
end;
Ako mora preko for onda pozovi ovu funkciju Nadji('Neka recenica', 'Rec'), koja ce ti vratiti true ako je rec u recenici ili false ako nije.
Code:
function Nadji(S,Rec : String): Boolean;
var i, j: Integer;
Nadjen:Boolean;
begin
Nadjen := False;
for i := 1 to Length(S) - Length(Rec) +1 do
if not Nadjen and (S[i]=Rec[1]) then
begin
Nadjen := True;
for j := 1 to length(Rec) do
Nadjen := Nadjen and (s[i+j-1]=rec[j]);
end;
Nadji := Nadjen;
end;