Tips (1541)

Tip Rating (9):

procedure TForm1.StringGrid1Click(Sender: TObject);
var
  s: string;
begin
  // Text der Zelle holen
  s := StringGrid1.Cells[StringGrid1.Col, StringGrid1.Row];
  if Length(s) > 1 then  //Länge des Text übeprüfen
  begin
    Edit2.Text := s;  // Text ausgeben
  end;
end;