Problem mit Liste

[Poring]

Wo oben auch im Quellcode benutzt ist: ValueListEditor

[Nuclear-Ping]

Hä? Hast du doch schon ->

Delphi-Quellcode:

procedure TDemoForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  VLE.Strings.SaveToFile('test.txt');
end;

:gruebel:

[Poring]

Wie gesagt in diesem Quellscode überschreibt er mir:
z.B:

Delphi-Quellcode:

Name Wert
Test 5

Wenn ich nun nocheinmal den Namen Test habe überschreibt er mir den Wert, dies will ich aber nicht. Es sollte dann z.B so sein:

Delphi-Quellcode:

Test 5
Test 10

[Nuclear-Ping]

Du meinst beim Laden von der Datei hast du 2x "Test" in der Liste stehen, obwohl du nur 1x haben willst?
Wo kommt die Datei her? Hast du die selbst angelegt? Wenn ja, warum speicherst du dann 2x "Test"?
Wenn nein und die Datei vorgegeben ist, musst du halt nach dem Laden noch manuell filtern ... oder sie manuell Speichern.

Sorry, quark ... verlesen :wall:

Naja, dann speicher die Liste halt manuell. ;)

[Poring]

Das Speichern geht ja. Es geht mir ja nur darum, dass er die Namen nicht überschreibt. Nur weis ich nicht ob ich das mit diese VLE hinbekomme oder eher mit TListBox oder TStringList :gruebel:

[Nuclear-Ping]

Normalerweise sollte .SaveToFile in dem Falle schon so speichern, dass es jeden Eintrag in der Liste auch in die Datei schreibt.

Es sei denn, es ist so implementiert, dass zB dupletten nicht gespeichert werden. In dem Fall versuch mal statt "Test" "Test1" oder so.

Deswegen meinte ich ja, dass du die Liste halt manuell speichern sollst, weil du da ja selber steuern kannst, was du wie speichern willst.

[Poring]

Nicht beim Speichern tut er dies, sondern IM Programm IN der Liste schon. Dies ist ja mein Problem. Wenn ich dort den Add Button drücke, Überschreibt er den Wert mit dem gleichen Namen.

[Nuclear-Ping]

Ah, so langsam wird ein Schuh draus. :D

Wenn DAS dein Add-Code ist, dann sollte aber schon klar werden, warum er überschreibt, oder?

Delphi-Quellcode:

procedure TDemoForm.AddActionExecute(Sender: TObject);
begin
  with VLE do
  begin
    Strings.BeginUpdate;
    Values[NameEdit.Text] := ScoreEdit.Text;   // << -- er kann nix anderes machen, ausser überschreiben
    TValueListStrings(Strings).CustomSort(CompareValues);
    Strings.EndUpdate;
  end;
end;

[Poring]

Das dachte ich mir, deswegen fragte ich ja ob ich dies deswegen in einer TListBox oder TStringList machen sollte anstatt in diesem VLE oder was ich sonst machen könnte :roll:

[Nuclear-Ping]

Hat doch mkinzler schon vorgeschlagen?

Zitat:

Zitat von mkinzler

Nimm ein einfaches .Add/.Append/.Insert Hier wird ja überprüft, ob schon vorhanden

Edit:
Mit VLE kenn ich mich nicht aus. Wenn die so konzipiert ist, dass du keine Werte mit gleichen Namen (was auch Sinn macht) eintragen kannst, dann ja: Nimm eine TStringList oder TList.