1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

type
  TAuto = record
    id         : Integer;
    marke      : String[30];
    modell     : String[30];
    kategorie  : String[30];
    aufbau     : String[30];
    kmstand    : Double;
    kraftstoff : String[30];
    leistung   : Integer;
    getriebe   : String[30];
    farbe      : String[30];
    tueren     : Integer;
    sonstiges  : String[50];
    datumzeit  : TDateTime;
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:

procedure TForm1.bit_save_fileClick(Sender: TObject);
var i : Integer;
begin
  with SaveDialog1 do
  begin
    Filter := 'Dat-Dateien (*.dat)|*.dat';
    InitialDir := 'Beispieldateien';
    if Execute = True then
    begin
    FileName := Filename + '.dat';
    AssignFile(datei,FileName);
    Rewrite(datei);
    with sg_datenerfassung do
    begin
      for i := 1 to RowCount do
      begin
        daten.id         := StrToInt(Cells[1,i]);
        daten.marke      := Cells[2,i];
        daten.modell     := Cells[3,i];
        daten.kategorie  := Cells[4,i];
        daten.aufbau     := Cells[5,i];
        daten.kmstand    := StrToFloat(Cells[6,i]);
        daten.kraftstoff := Cells[7,i];
        daten.leistung   := StrToInt(Cells[8,i]);
        daten.getriebe   := Cells[9,i];
        daten.farbe      := Cells[10,i];
        daten.tueren     := StrToInt(Cells[11,i]);
        daten.sonstiges  := Cells[12,i];
        daten.datumzeit  := Now;
        Write(datei,daten);
      end;
    CloseFile(datei);
   end;
  end
  else Exit;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

  for i := 1 to RowCount[b]-1[/b] do
      begin
        daten.id         := StrToInt(Cells[1,i]);
        daten.marke      := Cells[2,i];
        daten.modell     := Cells[3,i];
        daten.kategorie  := Cells[4,i];
        daten.aufbau     := Cells[5,i];
        daten.kmstand    := StrToFloat(Cells[6,i]);
        daten.kraftstoff := Cells[7,i];
        daten.leistung   := StrToInt(Cells[8,i]);
        daten.getriebe   := Cells[9,i];
        daten.farbe      := Cells[10,i];
        daten.tueren     := StrToInt(Cells[11,i]);
        daten.sonstiges  := Cells[12,i];
        daten.datumzeit  := Now;
        Write(datei,daten);
      end;