Ini Datei nach schlüsseln sortiert und in Stringgrid eintragen dauert zu lange?

[DeddyH]

Du programmierst m.M.n. zu sehr an der Oberfläche. Wie wäre es denn, wenn Du Dir eine Klasse deklarierst und deren Eigenschaften dann aus der Ini ausliest und zuweist? Das Ganze in eine TObjectList gepackt, und Du hast die komplette Datei im Speicher, wobei zusammengehörige Daten dann auch zusammen sind. Diese Liste kannst Du dann auch beliebig sortieren und darstellen (in einem StringGrid, einer ListView oder sonstwo). Zum eigentlichen Problem: wahrscheinlich dürfte das ständige Neuzeichnen der Flaschenhals sein. Die Anzahl der Zeilen ist zumindest bei der Listenlösung bekannt und muss dann nur einmal gesetzt werden. Rows und Cols von TStringGrid sind vom Typ TStrings, welcher wiederum über die Methoden BeginUpdate und EndUpdate verfügt. Der Einsatz dieser beiden könnte das Ganze schon enorm beschleunigen.

[muhael]

Danke für die schnelle Antwort.
Ja aber wenn man halt 2x nen Mustermann drin hat und den in der Tobjectlist Sucht findet er Beide und zeigt somit diesen auch an oder sehe ich das Falsch?
da:
[9000]
Name=Max
NachName=Mustermann
Kostenstelle=210
Punkte=10

und
[9001]
Name=Hans
NachName=Mustermann
Kostenstelle=510
Punkte=50


die beiden haben denselben Nachnamen nun suche ich nach dem Nachnamen und er findet ja Beide da die nachnamen gleich sind...

das andere werde ich zu herzen nehmen und auch zuhause ausprobieren

ielen dank erstmal

LG

[DeddyH]

Dann merk Dir doch einfach die Personalnummer mit (z.B. in der Objects-Eigenschaft von TStrings). Damit ist der Datensatz dann eindeutig identifiziert.

[Blup]

Ich versteh nicht wo eigentlich das Problem mit doppelten Namen ist?

Delphi-Quellcode:

TMyPerson = class(TObject)
  Nr: Integer;
  Name: string;
  NachName: string;
  Kostenstelle: string;
  Punkte: Integer;
end;

function ComparePersonByNachName(AItem1, AItem2: Pointer);
begin
  Result := AnsiCompareText(TMyPerson(AItem1).Name, TMyPerson(AItem2).Name);
end;

function ComparePersonByNr(AItem1, AItem2: Pointer);
begin
  Result := TMyPerson(AItem1).Nr - TMyPerson(AItem2).Nr;
end;

function ComparePerson(AItem1, AItem2: Pointer);
begin
  Result := ComparePersonByNachName(AItem1, AItemn2);
  if Result <> 0 then Exit;
  Result := ComparePersonByNr(AItem1, AItemn2);
end;

FMyPersonList: TObjectList;
{...}
PersonenEinlesen;
FMyPersonList.Sort(ComparePerson);
PersonenAusgeben;

[DeddyH]

Das Problem besteht, wenn man lediglich die Namen in einer ListBox o.ä. vorhält, dann weiß man bei Click auf einen mehrfach vorhandenen nicht, welcher gemeint ist. Daher würde ich wie schon angedeutet zumindest die Personalnummer, aber besser noch das ganze Personenobjekt in TStrings.Items.Objects ablegen.

[Uwe Raabe]

Liege ich da jetzt so falsch oder warum war mir nach drei Sätzen klar, daß man sowas viel einfacher mit TClientDataSet und TDbGrid implementiert (wenn man denn nicht auf eine richtige Datenbank gehen will)? Selbst wenn ich gleichzeitig mehrere unterschiedlich sortierte Listen darstellen will, lässt sich das damit relativ unproblematisch lösen.

[DeddyH]

*Pfh*, das ist doch was für Warmduscher, ein bisschen muss es schon noch weh tun