Elemente aus TStringList in Laufzeit entfernen

[KetchUp]

Könnt ihr mir einen Tipp geben wie ich die Liste erstelle?

PS: Upps, wollte keinen Doppelpost machen.

[EWeiss]

Zitat von KetchUp:

Könnt ihr mir einen Tipp geben wie ich die Liste erstelle?

PS: Upps, wollte keinen Doppelpost machen.

Vocabulary:= TStringList.Create;

gruss

[KetchUp]

Zitat von EWeiss:

Vocabulary:= TStringList.Create;

Aber das hab ich doch schon.

Delphi-Quellcode:

 
  Vocabulary:= TStringList.Create;
  Vocabulary.LoadFromFile('Vocabulary.txt');

  RandomNumber:= random(Vocabulary.Count);
  L_RemainingWords.Caption:= 'Verbleibende Vokabeln: '+IntToStr(Vocabulary.Count);

  If GermanEnglish

  Then
    try
      for i:= 0 to Vocabulary.Count - 1 do
        Begin
          Vocab:= TVocab.Create;
          Vocab.English:= Vocabulary.Names[i];
          //Vocab.SolvedCount:= 0;
          Vocab.German:= Vocabulary.ValueFromIndex[i];
          Vocab.Repetitions:= RepititionValue[i];
          List.Add(Vocab);

          L_UnknownWord.Caption:= Vocab.English[RandomNumber];
          L_CorrectAnswer.Caption:= '';
        End;
      finally
    end

Brauche ich denn Vocab:= TVocab.Create; , List.Add(Vocab); und Vocab.SolvedCount ?

Ich müsste doch alles damit regeln können.

Delphi-Quellcode:

  type
    TVocab = record
    German, English: string;
    Repetitions: Integer;
  end;

[DieDolly]

Zitat von EWeiss:

Zitat von KetchUp:

Könnt ihr mir einen Tipp geben wie ich die Liste erstelle?

PS: Upps, wollte keinen Doppelpost machen.

Vocabulary:= TStringList.Create;

gruss

Es ist eine Liste gemeint, um die Records aufzunehmen.

[KetchUp]

Zitat von DieDolly:

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:
var List: TList; Wenn ich ihr aber die Vokabeln zuweise sagt der Compiler "Incompatible types: Pointer and TForm2.TVocab"
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

[KodeZwerg]

*entfernt*