Mega Code Archive

 

Categories / Delphi / Strings

 

Copy the current line of a stringgrid into a tedit

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;