Einzelnen Beitrag anzeigen

thiagojonas

Registriert seit: 31. Aug 2008
Ort: Wolfenbüttel
338 Beiträge
 
#10

Re: Maximum wir überschritten!

  Alt 20. Okt 2008, 15:10
also so:

Delphi-Quellcode:
 if Index>-1 then
begin
   if calculate_dg.Cells[calculate_dg.FixedCols,Pred(calculate_dg.RowCount)] <> 'then
begin
      calculate_dg.RowCount := Succ(calculate_dg.RowCount);
      calculate_dg.Cells[calculate_dg.FixedCols,Pred(calculate_dg.RowCount)] := form4.StringGrid.Cells[0,Index];
      calculate_dg.Cells[1,Pred(calculate_dg.RowCount)] := ComboBox.text;
      calculate_dg.Cells[2,Pred(calculate_dg.RowCount)] := form4.StringGrid.Cells[8,Index];
      calculate_dg.Cells[3,Pred(calculate_dg.RowCount)] := protokoll_cb.Text;
      calculate_dg.Cells[4,Pred(calculate_dg.RowCount)] := '';
      calculate_dg.Cells[5,Pred(calculate_dg.RowCount)] := datum;
      calculate_dg.Cells[6,Pred(calculate_dg.RowCount)] := FormatDateTime('hh:mm',now);
      SaveStringGrid(calculate_dg, 'Data/Penein/'+Txt2Find+'/'+Txt2Find+'.ini');
   end;
  end;
 end;
end;
  Mit Zitat antworten Zitat