Elemente aus TStringList in Laufzeit entfernen

[KetchUp]

Ok, Deklaration klappt.

Delphi-Quellcode:

  private
    { Private declarations }
  public
    { Public declarations }
  type
    TVocab = record
    German, English: string;
  end;

  var
    Vocab: TVocab;
    Vocabulary: TStringList;
    RandomNumber, Abfragen: Integer;
    jpgFlag, jpgCorrect, jpgWrong: TJpegImage;
    StartTime: TDateTime;
    Duration: TDateTime;
  end;

So ganz Unrecht hatte ich nicht, musste nur type auf record setzen.

Delphi-Quellcode:

  If GermanEnglish

  Then
    try
      L_HeadingTrainerDescription.Caption:= 'Deutsch -> Englisch | '+IntToStr(Repititions)+' Wiederholungen | 10 Vokabeln';

      for i:= 0 to Vocabulary.Count - 1 do
        Begin
          Vocab:= TVocab.Create;
          Vocab.English:= Vocabulary.Names[i];
          Vocab.German:= Vocabulary.ValueFromIndex[i];
          Vocab.SolvedCount:= 0;
          L_UnknownWord.Caption:= Vocab.English[RandomNumber];
          L_CorrectAnswer.Caption:= '';
        End;
      finally
    end

Jetzt hängt es am "TVocab.Create;". Das verstehe ich noch nicht.