hm ich bin davon ausgegangen das das nicht benötigt wird da es an sich eindeutig ist das es funktioniert da speichern und laden läuft.
aber hier die deklarationen - kontakttype ist ein record
und das hier
filename := ExtractFilePath(application.exename)+datafile;
datafile ist die konstante und das davor gibt den pfad zurück wo sich die anwendung befindet.
das haut aber alles hin.
und da wir kontakte[i].name mit einander vergleichen werden strings sortiert nach a-z
Delphi-Quellcode:
type kontaktType =
packed record
Name :
string[50];
tele :
string[20];
handy:
string[20];
fax :
string[20];
adr :
string[255];
end;
const ver = '
v0.5Beta';
maxD = 1000;
datafile = '
adressen.dat';
var df:
file of kontakttype;
kontakte:
array[1..maxd]
of kontakttype;