Tach!
Also ich glaube dein eines break ist falsch. das springt er nur aus einer for-Schleife. Naja, wenn er hängt, dann schreibs mal so :
Delphi-Quellcode:
procedure TFormHaupt.BitBtnSucheClick(Sender: TObject);
var
suchtext:string;
* *r,c:integer;
begin
{ gewöhn dir eine vernünftgie formatierung und kommentierung an, sonst
würde ich an deiner stelle es gleich lassen mit proggen }
suchtext := editsuche.Text;
if suchtext <> '' then
begin
* For r := 0 to StringGrid1.RowCount - 1 do
begin { wird eiegentlich nicht benötigt, ist für mich aber übersichtlicher }
* For c := 0 to StringGrid1.ColCount - 1 do
begin
Application.Processmessages;
* * If (StringGrid1.Cells[c, r] = suchtext) then
* * * begin
* * * * * ShowMessage('Eintrag in Zeile '+InttoStr(r+1)+' gefunden!');* *break;
* * * end;
end;
end;
end;
end;
Da sollte er zu mindest nicht hängen bleiben. So und danns chau doch einfach mal in der Hilfe nach. Wer lesen kann, ist klar im Vorteil. Ich geb dir noch nen tip:
Selection.
Viel spass noch.
Gruss Killian