Elemente aus TStringList in Laufzeit entfernen

[KetchUp]

Zitat von DieDolly:

Ich denke es müsste eher heißen
              Vocab.Repetitions := Vocab.Repetitions - 1;

Aber ich muss doch noch sagen bei welcher Vokabel er 1 vom Repetitions Wert abzieht, oder? Also:

Vocab[RandomNumber].Repetitions:= Vocab[RandomNumber].Repetitions - 1;

Zitat von DieDolly:

Außerdem fehlt noch der wichtigste Bestandteil von Allem: die LISTE!
Die ganzen Records bringen dir nix wenn du keine Liste hast.

Meinst du das mit Liste:

Delphi-Quellcode:

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

Dann in FormCreate:

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.German:= Vocabulary.ValueFromIndex[i];
          Vocab.Repetitions:= RepititionValue[i];
          //Vocab.SolvedCount:= 0;
          List.Add(Vocab);

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

Hier wird doch für jede Vokabel der Repetitions Wert auf RepetitionValue gesetzt.

Code:

         
Vocab[RandomNumber].Repetitions:= Vocab.Repetitions[RandomNumber] - 1;

Also müsste er damit (wie gesagt) in OnClick vom Repepitions Wert der zufällig ausgewählten Vokabel 1 abziehen.

[DieDolly]

Zitat:

Meinst du das mit Liste:

Nein.

Zitat:

Aber ich muss doch noch sagen bei welcher Vokabel er 1 vom Repetitions Wert abzieht, oder?

Das passiert eben mit der Liste.

[KetchUp]

Zitat von DieDolly:

Nein.

Dann weiß ich nicht mehr weiter

[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?