stringgrid veri akleme sorunsalı

[balsoft]

selamlar arkadaşlar belki basit bişi ama çözemedim kafam durdu stringgrid içerisine ,

Kod: Tümünü seç

stringgrid1.RowCount:=stringgrid1.RowCount+1;
      stringgrid1.Cells[0,row] := dbedit1.Text;
       if izle <> 3 then stringgrid1.Cells[1,row] := dbedit4.Text;
      stringgrid1.Cells[2,row] := datetostr(date);
      stringgrid1.Cells[3,row] := timetostr(time);
      stringgrid1.Cells[4,row] := islem;
      inc(row);

şeklinde kayıtları ekliyorum burda sorun yok sorun şu eklenen kayıt stringgridde en alt satıra atılıyor bense tam tersini istiyorum yani en son eklediğim kayıt ilk satırda çıksın diğerleri peşinden gelsin yardımcı olursanız sevinirim.

[depresif]

yeni satırı ekledikten sonra verileri tek tek sonraki satıra kaydırmalısın sonrada veriyi

Kod: Tümünü seç

      stringgrid1.Cells[2,0] := datetostr(date);
      stringgrid1.Cells[3,0] := timetostr(time);
      stringgrid1.Cells[4,0] := islem;

şeklinde eklemelisin

[balsoft]

arkadaşlar sorunu depresif arkadaşın yol gösterimiyle hallettim belki ihtiyacı olan olur işte kodlar

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
r:integer;
begin
stringgrid1.RowCount:= stringgrid1.RowCount+1;
for r := stringgrid1.RowCount-1 downto 2 do
begin
stringgrid1.Cells[0,r]:=stringgrid1.Cells[0,r-1];
end;
stringgrid1.Cells[0,1]:='bu yeni'+inttostr(stringgrid1.RowCount);
end;