StringGrid1Click & aktuelle zeile

[horst]

versuche die aktuelle zeile eines stringgrids in ein edit zu bekommen

Delphi-Quellcode:

procedure TForm1.StringGrid1Click(Sender: TObject);
var c, min, i, j: Integer;
  s: string;
begin
  for i := 0 to stringgrid1.Rowcount - 1 do begin
  for j := 0 to stringgrid1.Colcount - 1 do begin
   s := StringGrid1.Cells.[i, j];
      edit2.text := s;
    end;
  end;
end;

da stimmt aber was nicht...

[horst]

hat sich erledigt

[flomei]

Nennst du uns bitte die Lösung?

Danke!

MfG Florian

[horst]

sehr gerne doch...

Delphi-Quellcode:

procedure TForm1.StringGrid1Click(Sender: TObject);
var
  s:string;
begin
  s := StringGrid1.Cells[StringGrid1.Col,StringGrid1.Row];
  if Length(s) > 1 then
  begin
   Edit2.Text := s;
  end;
end;