Ich habe mir ein TDbf Datenbank nach dem Beispiel Addressbook aufgebaut.
habe auch hier 'http://wiki.lazarus.freepascal.org/Lazarus_Tdbf_Tutorial/de' nachgeschaut,
komme jedoch nicht weiter.
Ich möchte die TDBGrid - Ausgabe nach den definierten Felder(AddIndex) sortieren.
Wie stelle ich das an? Wenn möglich Bitte mit einem Beispiel.
Meine Datenbank wurde folgendermaßen aufgebaut.
Code: Alles auswählen
With DBA do
begin
Close;
with FieldDefs do
begin
Clear;
Add('VName',ftString,30, true);
Add('NName',ftString,30, true);
Add('GDatum',ftString,12, true);
Add('Zahl1',ftString,2, true);
Add('Zahl2',ftString,2, true);
Add('Zahl3',ftString,2, true);
Add('Zahl4',ftString,10, true);
Add('Info1',ftString,18, true);
Add('Info2',ftString,50, true);
end;
TableName:=AFileName;
CreateTable;
TableLevel := 7;
Exclusive := true;
Open;
AddIndex('NName', 'NName', []);
AddIndex('GDatum', 'GDatum', []);
AddIndex('Zahl1', 'Zahl1', []);
AddIndex('Zahl2', 'Zahl2', []);
AddIndex('Zahl3', 'Zahl3', []);
AddIndex('Info1', 'Info1', []);
AddIndex('Info2', 'Info2', []);
Free;
end;
Gruß