neue Zeile im Stringgrid

[kiar]

hallo hansa,

kann dein ergebnis nicht nachvollziehen, vllt ist es wirklich schon zu spät

folgender code:

Delphi-Quellcode:

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
   if key = #13 then
   begin
   with StringGrid1 do
     begin
       if col = 1 then
          col:= 4
          else
          begin
          if col = 4 then
            begin
              if rowcount mod 2 <> 0 then
                 begin
                   rowcount:=rowCount + 3 ;
                   row:=rowcount-1;
                 end
                 else
                 Begin
                   rowcount:=rowcount + 1 ;
                   row:=rowcount-1
                 end;
            end;
            col:=1;
          end;
     end;
   end;
end;

brachte bei mir folgendes ergebnis

Code:

xxx --- --- xxx
xxx --- --- xxx
--- --- --- ---
--- --- --- ---
xxx --- --- xxx
xxx --- --- xxx