Array of records zellegen

[ConnorMcLeod]

Zitat:

Zitat von IMPEGA (Beitrag 1520184)

Damit muss ich aber die Voraussetzung erfüllen, alle Namen zu kennen oder aufnehmen.

Ahso, ich dachte, das wären alles bereits bekannte Namen. Dann muß man erstmal eine Liste aller vorkommenden Bezeichnungen aufbauen. Aber wie soll das dann mit den Synonymen (falsch geschriebene Bezeichnungen) funktionieren? Es muß doch eine "Person" regulierend eingreifen und bestimmen, was zusammen gehört.

[jaenicke]

Zitat:

Zitat von IMPEGA (Beitrag 1520184)

Es sind nicht immer Autos, es können auch Teile von Autos sein. Reifen, Kupplungen, Lenker...... und in 2 Tagen ist es dann eine 48Mb Liste mit 1300 andere Namen. U.s.w
Ganze selten 5Mb mit 60 Namen.
Wir reden hier von Unmengen an Namen, die möglich sind.

Da wäre ich aber erst recht bei einer Datenbank im Speicher...

FireDAC ist ja z.B. bei Delphi dabei und bietet mit TFDMemTable eine entsprechende Möglichkeit. Da kannst du auch mit einem Index (oder mehreren Indexfelder usw.) arbeiten. Du kannst sogar mehrere Tabellen erstellen und per SQL-Abfrage kombinieren, alles ohne feste Datenbank dahinter.

Zur Zuordnung falscher Schreibweisen würde ich nach Anzahl sortieren und die Einträge, die nur einen oder sehr wenige Vorkommnisse haben, z.B. per Levenshtein Distanz mit den anderen vergleichen.

Bessere Ratschläge sind ohne genauere Beschreibung der Abläufe kaum möglich.

[Mavarik]

Warum nimmst Du nicht einfach ein Dictionary?

Delphi-Quellcode:

Type
 TAuto = record
    Farbe: string;
    Baujahr: string;
    KM: string;
    Notiz: string;
  end;

 TInfo = Class
   private
     fParts : TArray<TAuto>;
 end;

 TMyDic = TObjectDictionary<String,TInfo>;

Mavarik

[Delphi.Narium]

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.