StringGrid Mehrzeilig

[kiar]

so:

Delphi-Quellcode:

for icnt :=1 to 2 do
       begin
         with TEdit(FindComponent('ed'+ Inttostr(iCnt))) do
                case iCnt of
                  1: sErsterDienst  := text;
                  2: sZweiterDienst := text;
                end;
       end;
       Stringgrid1.Cells[stringgrid1.Col,stringgrid1.row]:=sErsterDienst
                                                      + #13#10 +
                                                          sZweiterDienst;

raik