Elemente aus TStringList in Laufzeit entfernen

[KetchUp]

Ich hab jetzt wirklich viele Stunden versucht @HolgerX QUellcode zu verstehen und auch die Erklärung zu Klassen im Delphi Treff gelesen.

Aber an dem Punkt an dem ich gemerkt habe, dass Klassen auch so was wie Prozeduren sind bin ich ausgestiegen.

Deswegen will ich jetzt noch mal komplett von vorne anfangen und das Ganze mit Records aufbauen. Soweit bin ich mit den Erklärungen vom Delphi Treff gekommen (sieht auch Euren Vorschlägen ähnlich). Wenn ich aber meinem Record VocabularyList.German seine Vokabeln zuordnen will meckert der Compiler: Incompatible types TStringList and string.

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    Button1: TButton;
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    Panel5: TPanel;
    Panel6: TPanel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

type
  TVocabulary = record
    German : TStringList;
    English : TStringList;
    Repetitions : Integer;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  VocabularyList: TVocabulary;
  Vocabulary: TStringList;
  index: Integer;

begin
  Vocabulary.LoadFromFile('Vocabulary.text');

  for index:= 0 to Vocabulary.Count -1 do
  begin
    VocabularyList.Repetitions:= 3;
    VocabularyList.German:= Vocabulary.ValueFromIndex[index];
    VocabularyList.English:= Vocabulary.Names[index];
  end;

end;

Jemand ne Idee warum er das macht?

[HolgerX]

Hmm..

Was für ein Kuddelmuddel!

Letzter Versuch meiner seits...

Zitat:

Delphi-Quellcode:

type
  TVocabulary = record
    German : TStringList;
    English : TStringList;
    Repetitions : Integer;
  end;

Bei 'Datenverarbeitung' mit mehren Datensätzen (ob dass nun 2 Wörter hier sind, oder ganze Datensätze mit diversen Feldern) gibt es 'immer' nur 'eine' Liste, welche eine beliebige Anzahl von Datensätzen enthält!

Wenn hier im Thread von Records gesprochen wurde, dann sind diese 'Records' jeweis 'ein' Datensatz in der Liste.
Somit

Delphi-Quellcode:

  TVocabulary = record
    German : String;
    English : String;
    Repetitions : Integer;
  end;

Dies geht übrigens auch als Classe (Object):

Delphi-Quellcode:

  TVocabulary = class
    German : String;
    English : String;
    Repetitions : Integer;
  end;

Egal ob ObjectList oder StringList, dies sind 'Listen' welche Datensätze (Objecte) enthalten.
Alternativ kannst Du auch ein
 TVocabularyList = Array of TVocabulary verwenden.
Jedoch ist das Löschen von einem Datensatz in diesem Array etwas aufwändiger als bei einer ObjectList.
Denn dann musst Du die verbleibenden Einträge in deinem Array in ein neues, verkleinertes umkopieren und nur den zu löschenden weglassen..

Ich hatte in meinem Beispiel TObjectList verwendet mit Objecten, statt Records, da da die Bearbeitung (löschen) einfach geht.
Hier kümmert sich die TObjectList selber um das Händling..
In meiner Unit habe ich nur die TObjectList leicht geändert/erweitert, um einfacher auf die Objecte zugreifen und hinzufügen zu können.

Ich werde Dir hier nun kein Beispielprogramm mit Arrays vorkauen...

[p80286]

Gut erklärt!

Gruß
K-H

[DieDolly]

Zitat:

Aber an dem Punkt an dem ich gemerkt habe, dass Klassen auch so was wie Prozeduren sind bin ich ausgestiegen.

Man könnte es auch so formulieren "An dem Punkt an dem ich gemerkt habe, dass Klassen auch so was wie Prozeduren sind und ich mir das einrede bin ich ausgestiegen und habe den guten Holger-Code weggeschmissen weil ich ihn nicht verstehe"

Zitat:

Aber an dem Punkt an dem ich gemerkt habe, dass Klassen auch so was wie Prozeduren sind bin ich ausgestiegen.

Deswegen will ich jetzt noch mal komplett von vorne anfangen und das Ganze mit Records aufbauen.

Wenn du das denkst, dann hast du etwas ganz und gar nicht verstanden.

Holgers Ansatz war mehr als in Ordnung. Wieso wirfst den einfach weg und fängst schon wieder mit deiner komischen StringListe an? Ließ doch mal was die Leute dir schreiben.

Zitat:

Ich hab jetzt wirklich viele Stunden versucht

Wenn du das viele Stunden getan hättest, würdest du den Code schon lange verstanden haben.