Da mit der Demo Dateien ohne Header nicht geöffnet werden können (was mir beim Testen am Schluß auch den Hotfix einbrockte), hier ein kleiner Beispielcode...
Angenommen eine Datei wurde bisher mit folgendem Record bearbeitet:
Delphi-Quellcode:
TArtikel = packed record
Nummer : String[20];
Beschreibung : String[80];
Bestand : Boolean;
Gewicht : Double;
end;
Wird diese mit SimpleTable so geöffnet:
Delphi-Quellcode:
var
i : Integer;
begin
ListBox1.Clear;
if OpenDialog1.Execute then begin
with SimpleTable1 do begin
FieldDefs.Clear;
FieldDefs.Add('Nummer', st_ShortStr, 20);
FieldDefs.Add('Beschreibung',st_ShortStr, 80);
FieldDefs.Add('Bestand', st_Boolean, 0);
FieldDefs.Add('Gewicht', st_Double, 2);
FileName := OpenDialog1.FileName;
StorageMode := st_FilePlain;
Open;
// Ab hier nur zum Testen eine Anzeige in einer Listbox...
for i := 1 to RecCount do begin
RecNo := i;
ListBox1.Items.Add(Fields[0].AsString+'-'+FieldByName('Beschreibung').AsString);
end;
Close;
end;
end;
end;