ich habe mal noch eine frage. ich habe den suchalgorithmis noch etwas verdeinert. dunktioniert ja auch super. allerdings, muss der suchstring immer dem kompletten zelleninhalt entsprechen! was muss ich ändern, damit auch ein "teilstring" als suchergebnis anerkannt wird? also wenn ich nach "Schule" suche, soll er auch in der zelle "stehen bleiben", in der "Schule ist toll" steht! wie mach ich das?
Delphi-Quellcode:
var suchtext:string;
r,c:integer;
gefunden:boolean;
begin
gefunden:=False;
suchtext:=ESuche.Text;
if (suchtext='')or(suchtext=' ') then else
begin
For r:=zeile to FormHaupt.SGS.RowCount-1 do
For c:=0 to FormHaupt.SGS.ColCount-1 do
If (FormHaupt.SGS.Cells[c,r]=suchtext) then
begin
gefunden:=True;
zeile:=r+1;
WaehleZeileSGS(r); // ist eine Funktion, die die gesamte zeile markiert, in der sich der suchstring befindet
BitBtn1.Caption:='Weitersuchen';
exit;
end;
end;
if (gefunden=False) then MessageDlg('" '+suchtext+'" wurde nicht gefunden', mtInformation, [mbOK],0);
end;