Oder sowas in der Art (nur mit PascalScript getestet):
Delphi-Quellcode:
program Test;
type
TAuto = Record
Marke : String;
Farbe : String;
Baujahr : String;
KM : String;
Notiz : String;
end;
TMarken = Record
Marke : String;
Exemplare : Integer;
Data : Array of TAuto;
end;
var
i : Integer;
k : Integer;
AMarken : Array of TMarken;
iMarkenAnzahl : Integer;
iAutoAnzahl : Integer;
begin
// Hier anhand der vorhandenen Datei die Anzahl der Marken ermitteln.
iMarkenAnzahl := 10; // Zum Testen mal 10 als konstanten Wert angenommen.
SetLength(AMarken,iMarkenAnzahl);
for i := 0 to iMarkenAnzahl - 1 do begin
// Hier anhand der vorhandenen Datei die Anzahl der Exemplare zur Marke ermitteln.
iAutoAnzahl := (i + 1) * 3; // Da es nicht von allen Marken gleichviel gibt hier mal Pseudozufall als Mengenangabe genommen.
SetLength(AMarken[i].Data,iAutoAnzahl);
// Hier den Markennamen aus der Datei übernehmen
AMarken[i].Marke := Format('Marke: %d',[i]);
// und die oben ermittelte Anzahl von Exemplaren zuweisen.
AMarken[i].Exemplare := iAutoAnzahl;
for k := 0 to iAutoAnzahl - 1 do begin
// Die Werte aus der Datei für das Exemplar übernehmen.
AMarken[i].Data[k].Marke := AMarken[i].Marke;
AMarken[i].Data[k].Notiz := Format('Exemplar %d der Automarke %s', [k,AMarken[i].Data[k].Marke]);
end;
end;
for i := 0 to Length(AMarken) - 1 do begin
for k := 0 to Length(AMarken[i].Data) - 1 do begin
WriteLn(Format('Marken: %s - Marke: %s - Notiz: %s', [AMarken[i].Marke,AMarken[i].Data[k].Marke,AMarken[i].Data[k].Notiz]));
end;
end;
end.
Meine erste Wahl wäre aber auch eine Datenbank, auch wenn sie nur zur Laufzeit im Arbeitsspeicher existiert. Dann werden das Sortieren und das Zählen (fast) zu Kleinigkeiten. Und andere Auswertung dürften dann auch weitgehend problemlos zu implementieren sein. Reportgeneratoren setzen regelmäßig auf Datenbanken auf und die Anzeige per DBGrid wäre für Neugierige auch leicht zu implementieren.
Um "Unfeinheiten" bei der Namensvergabe der Marken ... etwas abmildern zu können, könnte auch die Soundex-Funktion von Delphi für Erleichterung sorgen.