Hallo Leute!
Hab folgenden Code für ne Suche geschrieben, klappt wunderbar, kann allerdings nicht "Weitersuchen"
Wer kann mir helfen, dem Code noch die Weitersuche beizubringen? Hab jetzt keine Idee wie es gehen soll. Weiß muss mir merken wo stehen geblieben bin, aber wie das zu realisieren ist, keine Ahnung.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var s1: String;
i,j,u: Integer;
begin
s1:=Edit4.Text;
u:=Length(s1);
if u>=2 then
begin
with StringGrid1 do
for i:=0 to ColCount-2 do
for j:=1 to RowCount-1 do
if Copy((Cells[i,j]),1,u)=s1 then
begin
Edit4.Color:=clWindow;
StringGrid1.Selection:=TGridRect(Rect(i,j,i,j));
Exit;
end else
begin
Edit4.Color:=clYellow;
Edit4.SetFocus;
end;
end else
begin
Edit4.Color:=clYellow;
Edit4.SetFocus;
end;
end;
[edit=SirThornberry]Rechtschreibfehler im Titel beseitigt - Mfg, SirThornberry[/edit]