ValueListEditor

[wendelin]

Hallo Delphifreunde,

ich habe eine einzige Frage :
Ist die Pickliste des ValueListEditors auch zur Laufzeit editierbar (insert, delete etc.)
Kann man die o.g. Pickliste zur Laufzeit speichern oder laden.

Für ein kurzes Beispiel wäre ich dankbar.

Wendelin (wolfgang)

[himitsu]

Er hat eine Stringlist (TStrings) und damit kann man alles machen, was man sonst auch damit machen kann.

[wendelin]

Danke Himitsu für Deine Antwort,

Ich brauche den VLE um beim Einlesen von historischen Aktienkursen die kryptische WKN in den Aktienklarnamen zu übertragen.
Es liest sich einfacher!

Nun ist aber beim herumspielen mit dem testprogramm ein eigenartiges Problem aufgetaucht, welches ich nicht erklären kann.
Ich habe ein kurzes Testprogramm geschrieben. Ausschlieslich zum VALUELISTEDITOR.
Es klappt alles bis auf die Ausgabe der Pickliste im Memo. Siehe "procedure TForm1.BitBtn10Click(Sender: TObject);"
Vielleicht hast Du ja eine Erklärung.

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Grids, ValEdit;

type
  TForm1 = class(TForm)
    ValueListEditor1: TValueListEditor;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    Memo1: TMemo;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    BitBtn9: TBitBtn;
    BitBtn10: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
    procedure BitBtn10Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1       : TForm1;
  Aktienname  : TStringList;

implementation

{$R *.dfm}


procedure TForm1.FormCreate(Sender: TObject);
begin
  with ValueListEditor1 do
  begin
    DisplayOptions := [doColumnTitles,doAutoColResize];
    TitleCaptions[0] := 'WKN';
    TitleCaptions[1] := 'Aktienname';           // PickListe
    Aktienname       := TStringList.Create;
    Aktienname.Add('Cameco');
    Aktienname.Add('Infineon');
    Aktienname.Add('Livent');
    Aktienname.Add('Lynas');
    Aktienname.Add('Nordex');
    Aktienname.Add('Nel');
    Aktienname.Add('PlugPower');
    Aktienname.Sort;
    Edit1.Text := '?`';
  end;
end;
         (* Hinzufügen *)
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  with ValueListEditor1 do
  begin
    InsertRow(Edit1.Text,' ',False);
    with ItemProps[Row-1] do
    begin
      EditStyle := esPickList;  // Klappbox
      PickList  :=Aktienname;
    end  
  end;
end;

         (* Zeile löschen *)
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
  With ValueListEditor1 do if Strings.Count > 0 Then DeleteRow(Row);
end;
         (* Zeile überschreiben *)
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
  with ValueListEditor1 do if Strings.Count > 0 then Keys[Row] := Edit1.Text;
end;
          (* Speichern *)
procedure TForm1.BitBtn4Click(Sender: TObject);
begin
  ValueListEditor1.Strings.SaveToFile('TestDat');
end;
          (* Laden *)
procedure TForm1.BitBtn5Click(Sender: TObject);
begin
  ValueListEditor1.Strings.LoadFromFile('TestDat');
end;
            (* Inhalt VLE --> Memo *)
procedure TForm1.BitBtn6Click(Sender: TObject);
begin
  Memo1.Lines := ValueListEditor1.Strings;
end;
           (* PickListe aktualisieren *)
procedure TForm1.BitBtn7Click(Sender: TObject);
begin
  Aktienname.Add(Edit1.Text)
end;
     (* gesammte PickListe löschen *)
procedure TForm1.BitBtn9Click(Sender: TObject);
begin
  Aktienname.Clear;
end;
     (* PickListe --> Memo1 *)
procedure TForm1.BitBtn10Click(Sender: TObject);
Var Laenge,i : Integer;
begin
  Laenge := AktienName.Count;
  showMessage(IntToStr(Laenge));        // Laenge ist OK
  For i := 0 to (Laenge -1) do
  begin
    ShowMessage(AktienName[i]);         // hier OK !! es kommen alle 7 Aktienklarnamen
    Memo1.Lines[i] := AktienName[i];    // Hier Fehler !!??  hier kommen nur 2 ?
  end;  
end;

end.

[Delphi.Narium]

Wieviele Zeilen hat das Memo denn?

Genausoviel wie Aktienname? Wo wird das sichergestellt?

Was sagt denn ShowMessage(Memo1.Lines.Count) ? Zufällig 2?

Wie wäre es denn mit

Delphi-Quellcode:

     (* PickListe --> Memo1 *)
procedure TForm1.BitBtn10Click(Sender: TObject);
Var Laenge, i : Integer;
begin
  Memo1.Lines.Clear;
  Laenge := AktienName.Count;
  ShowMessage(IntToStr(Laenge)); // Laenge ist OK
  for i := 0 to (Laenge - 1) do
  begin
    ShowMessage(AktienName[i]); // hier OK !! es kommen alle 7 Aktienklarnamen
    Memo1.Line.Add(AktienName[i]); // Hier werden nun alle Aktienklarnamen ans Memo angehängt.
  end;
end;

[himitsu]

globale Variablen


Nja, wenn das Memo nur 2 Zeilen hat, dann kann auch nur bei 2 Zeilen der Inhalt gesetzt werden.

Dein Glück, oder Pech, dass Memo.Lines (TMemoStrings), entgegen zu einer TStringList, beim Zugriff auf nichtexistierende Zeilen keine Exception auslöst, sondern dann einfach still und heimlich nichts macht.

Delphi-Quellcode:

Memo1.Text := AktienName.Text;

// oder 
Memo1.Lines.Text := AktienName.Text;

// oder
Memo1.Lines := AktienName;

// oder
Memo1.Lines.Clear;
Memo1.Lines.AddStrings(AktienName[i]);

Und würde man den Komponenten und Events ordentliche Namen geben, dann wären solche (*Kommentare*) nutzlos.

PS: Zusätzlich ein "etwas" aktuelleres Delphi und schon hat man schöne Dinge, seit über 10 Jahren.

Delphi-Quellcode:

/// <summar> Speichern </summary>
procedure TForm1.BitBtn4Click(Sender: TObject);

https://www.embarcadero.com/de/products/delphi/starter
https://docwiki.embarcadero.com/RADS...n/Help_Insight

oder
https://devjetsoftware.com/products/...ation-insight/
und viele weitere Projekte, wie Hilfegeneratoren

[wendelin]

Danke Himitsu,
Deine ersten 2 Vorschläge funktionieren beide.
Gleichgültig ob mit oder ohne Memo1.Clear.
Zu Deinem Vorschlag ein neueres Delphi zu verwenden: Ich bin mittlerweile 77 Jahre alt und ein reiner Delphi-Autodidakt.
"Never change a running system". Ist mir auch zu teuer !

Danke nochmals !!

Delphi-Quellcode:

     (* PickListe --> Memo1 *)
procedure TForm1.BitBtn10Click(Sender: TObject);
Var Laenge,i : Integer;
begin
  Memo1.Clear;
  Laenge := AktienName.Count;
  showMessage(IntToStr(Laenge));       // Laenge ist OK
  For i := 0 to (Laenge -1) do
  begin
    Memo1.Lines[i]     := AktienName[i]; // lustig --> wenn ich Memo1.Clear einsetze kommt nur noch ein Aktienname (sonst 2)
 //   Memo1.Lines.Text := AktienName.Text; // es funktionieren beide Vorschläge
 //   Memo1.Text       := AktienName.Text; // es funktionieren beide Vorschläge
  end;
end;

[Delphi.Narium]

Zitat von wendelin:

Danke Himitsu,
Deine ersten 2 Vorschläge funktionieren beide.
Gleichgültig ob mit oder ohne Memo1.Clear.
Zu Deinem Vorschlag ein neueres Delphi zu verwenden: Ich bin mittlerweile 77 Jahre alt und ein reiner Delphi-Autodidakt.
"Never change a running system". Ist mir auch zu teuer !

Danke nochmals !!

Delphi-Quellcode:

     (* PickListe --> Memo1 *)
procedure TForm1.BitBtn10Click(Sender: TObject);
Var Laenge,i : Integer;
begin
  Memo1.Clear;
  Laenge := AktienName.Count;
  showMessage(IntToStr(Laenge));       // Laenge ist OK
  For i := 0 to (Laenge -1) do
  begin
    Memo1.Lines[i]     := AktienName[i]; // lustig --> wenn ich Memo1.Clear einsetze kommt nur noch ein Aktienname (sonst 2)
 //   Memo1.Lines.Text := AktienName.Text; // es funktionieren beide Vorschläge
 //   Memo1.Text       := AktienName.Text; // es funktionieren beide Vorschläge
  end;
end;

Delphi-Quellcode:

     (* PickListe --> Memo1 *)
procedure TForm1.BitBtn10Click(Sender: TObject);
Var Laenge,i : Integer;
begin
  Memo1.Clear;
  Laenge := AktienName.Count;
  showMessage(IntToStr(Laenge));       // Laenge ist OK
  For i := 0 to (Laenge -1) do
  begin
    Memo1.Lines.Add(i]) := AktienName[i];
  end;
end;

oder

Delphi-Quellcode:

     (* PickListe --> Memo1 *)
procedure TForm1.BitBtn10Click(Sender: TObject);
begin
  Memo1.Lines.Text := AktienName.Text; // Alle AktienNamen werden auf einmal ins Memo übertragen.
end;

oder

Delphi-Quellcode:

     (* PickListe --> Memo1 *)
procedure TForm1.BitBtn10Click(Sender: TObject);
begin
  Memo1.Text  := AktienName.Text; // Alle AktienNamen werden auf einmal ins Memo übertragen.
end;

Warum die "oder"?
AktienName.Text; enthält bereits alle Texte, so dass hier die For-Schleife entfallen kann. Bei Nutzung der Vorschleife wird quasi für jeden Aktiennamen einmal alles durch alles ersetzt. Es wird also unnütz viel Aufwand betrieben.

Abgesehen davon ist Delphi 7 nach wie vor eine excellent gute Entwicklungsumgebung und immernoch mein 'Lieblingsspielzeug'. Die Masse der Probleme, nach deren Lösung hier im Forum bezüglich neuerer Delphiversionen und der IDE gefragt wird, hat man mit Delphi 7 einfach nicht
Und nein, es ist nicht mehr "state of the art", aber als Hobby für das, was man so als Rentner benötigt, reicht es vollkommen aus

[Maekkelrajter]

Zitat von Delphi.Narium:

Abgesehen davon ist Delphi 7 nach wie vor eine excellent gute Entwicklungsumgebung und immernoch mein 'Lieblingsspielzeug'. Die Masse der Probleme, nach deren Lösung hier im Forum bezüglich neuerer Delphiversionen und der IDE gefragt wird, hat man mit Delphi 7 einfach nicht
Und nein, es ist nicht mehr "state of the art", aber als Hobby für das, was man so als Rentner benötigt, reicht es vollkommen aus

Zitat von wendelin:

Zu Deinem Vorschlag ein neueres Delphi zu verwenden: Ich bin mittlerweile 77 Jahre alt und ein reiner Delphi-Autodidakt.
"Never change a running system". Ist mir auch zu teuer !

Man kann trefflich darüber streiten, 'was man als Rentner so benötigt'. Ich jedenfalls (Rentner, 76, Hobby-Entwickler und Autodidakt) möchte auf die Errungenschaften der neueren Delphi-Versionen nicht mehr verzichten. Das ist ja auch nicht nötig, alldieweil es ja die kostenlose Community-Edition gibt.
Auch ich habe allerdings die Erfahrung gemacht, dass es mit zunehmendem Alter schwerer fällt, sich in etwas Neues einzuarbeiten. Aber das kann man ja mit der CE risikolos ausprobieren.

Gruß LP

[Delphi.Narium]

Die Smilies in meinen Text sind ja nicht so ganz unbeabsichtigt.

Natürlich kann man auch als Rentner 'ne neue Delphiversion, die auch noch kostenlos ist, nutzen oder einfach FreePascal verwenden und zum Frischhalten der grauen Zellen auch was Neues ausprobieren.

Man hat als Rentner halt die Freiheit zu entscheiden: Delphi 7 reicht mir oder ich will was Neues. Das "Muss" zum Aktuellbleiben ist aber nicht mehr da und das kann schon ganz schön entspannend wirken.

Frei nach dem Motto: Wenn ich was Neues ausprobieren möchte, dann tu ich's, wenn nicht, dann lass ich's. Es gibt noch soviel mehr im Leben, als Programmieren

[Maekkelrajter]

Zitat von Delphi.Narium:

Die Smilies in meinen Text sind ja nicht so ganz unbeabsichtigt.

Ich bitte um Nachsicht, aber wenn ich Rentner-Bashing auch nur wittere, dann wird bei mir ein Reflex getriggert, der dazu führt, dass ich sogar Smileys ignoriere
Dann gilt es nur noch, aufs energischste dem Eindruck entgegenzutreten, dass Rentner den ganzen Tag vor dem Fernseher oder auf der Parkbank sitzen, grundsätzlich Gas- und Bremspedal verwechseln und sich auf Kaffefahrten oder per Enkeltrick abzocken lassen!
So, jetzt wird's aber endgültig O.T.

Gruß LP