...copy the current line of a Stringgrid into a TEdit?

Author: Horst Fußhöller
Homepage: http://www.screendancer.de

Category: Strings

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;

 

printed from
www.swissdelphicenter.ch
developers knowledge base