Morgen!
ich habe ein StringGrid in dem nur ganze Zeilen markiert werden können. mit hilfe eines stringvergleichs wirde das gesamte stringgrid (in einer schleife) nach einem bestimmten string durchsucht. an der steklle bleibt er dann "stehen".
Delphi-Quellcode:
procedure TFormHaupt.BitBtnSucheClick(Sender: TObject);
var suchtext:string;
r,c:integer;
begin
suchtext:=editsuche.Text;
if suchtext='' then else
begin
For r:=0 to StringGrid1.RowCount+1 do
For c:=0 to StringGrid1.ColCount+1 do
If (StringGrid1.Cells[c,r]=suchtext) then
begin
ShowMessage('Eintrag in Zeile '+InttoStr(r+1)+' gefunden!'); break;
end; end;
end;
nun soll die gesamte zeile markiert werden, in der er steht. (statt dem showmessage)
wie mache ich das?
Gruß, dopeline
