Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by horst,
26. Okt 2003
sehr gerne doch...
procedure TForm1.StringGrid1Click(Sender: TObject);
var
s:string;
begin
s := StringGrid1.Cells;
if Length(s) > 1 then
begin
Edit2.Text := s;
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by horst,
26. Okt 2003
versuche die aktuelle zeile eines stringgrids in ein edit zu bekommen
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.;
edit2.text := s;
end;