Elemente aus TStringList in Laufzeit entfernen

[KetchUp]

Zitat:

Zitat von DieDolly (Beitrag 1418937)

Es ist eine Liste gemeint, um die Records aufzunehmen.

Dann ist es doch

Code:

List.Add(Vocab);

Aber wie deklarier ich das, sie enthält ja Strings und Integer-Werte?

[DieDolly]

Als aller erstes musst du verstehen, dass du deine TStringList nur brauchst, um TList zu befüllen. Danach brauchst du die TStringListe nie wieder. Alles weitere passiert über die TList wo du ja schon jetzt alle deine Vokabeln samt Zähler drin hast.

[KetchUp]

Die Liste funktioniert jetzt schon, ich kann sie aber nicht füllen.

Sie ist deklariert als:

Delphi-Quellcode:

var List: TList;

Wenn ich ihr aber die Vokabeln zuweise sagt der Compiler "Incompatible types: Pointer and TForm2.TVocab"

Delphi-Quellcode:

List.Add(Vocab);

[p80286]

das geht ungefähr so:

Delphi-Quellcode:

type
  myrecord=engtext:string;
           gertext:string;
           Repetition:integer;
    end;

var
  pmyrecord=^myrecord;


.....
  new(pmyrecord);
  pmyrecord^.engtext:=Englischertext;
  pmyrecord^.gertext:=Deutschertext;
  pmyrecord^.Repetition:=3;

 liste.add(pmyrecord);
....

procedure ListFree;
var
  pmyrecord:^myrecord;
begin
  for i:=0 to liste.count-1 do begin
    pmyrecord:=liste.item[i];
    dispose(pmyrecord);
  end;
  liste.free;  //der freeandnil falls auf Nil getestet wird
end;

ohne Gewähr da nur so runter getippt;

Gruß
K-H

[DieDolly]

Wenn dann so :P

Delphi-Quellcode:

type
 pmyrecord = ^myrecord;

 myrecord = record
  engtext: string;
  gertext: string;
  Repetition: integer;
 end;

[KodeZwerg]

*entfernt*

[p80286]

Zitat:

Zitat von DieDolly (Beitrag 1418969)

Wenn dann so :P

:oops: zwischen Tür und Angel getippt :oops:

gruß
K-H

[KetchUp]

Danke für den Code aber ich blicke immer noch nicht durch :cry:

Delphi-Quellcode:

 
pmyrecord = ^myrecord; // Record declarieren. Aber warum auf einmal das "^" Zeichen?

 myrecord = record // festlegen, dass ich ein Record verwenden will?
  engtext: string; //"Container" für die englischen Vokabeln, richtig?
  gertext: string; //"Container" für die deutschen Vokabeln, richtig?
  Repetition: integer; //"Container" für die Wiederholungen, richtig?

Delphi-Quellcode:

var

  new(pmyrecord);  //Was ist das?
  pmyrecord^.engtext:=Englischertext; // müsste das nicht heißen:  pmyrecord^.engtext:= Vocabulary.Names[i]; 
  pmyrecord^.gertext:=Deutschertext;  // müsste das nicht heißen:  pmyrecord^.gertext:= Vocabulary.ValueFromIndex[i]
  pmyrecord^.Repetition:=3;

[HolgerX]

Hmm..

(Wieso immer mit Records bei Listen gearbeitet wird... ;) )

Angehängt ein 'einfaches' Beispiel, wie mann mit einer TObjectList und einer Klasse für die Vokabeln einen einfaches Übungsprogramm machen kann.

Inklusive der Option, das eine falsche Lösung 3x für das Wort wiederholt werden kann und es erst dann aus der Liste entfernt wird.

Auf grafische Spielereien habe ich zunächst verzichtet, da es nur um die 'Funktion' als Beispiel geht...

Viel Spaß damit..

( Mit D6 mal so zusammen getippt ;) )

[DieDolly]

Also einfach sieht für einen Anfänger bestimmt anders aus :P
Dafür ist es aber korrekt und der richtige Weg.