Elemente aus TStringList in Laufzeit entfernen

[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
Dafür ist es aber korrekt und der richtige Weg.

[p80286]

Zitat von HolgerX:

Hmm..

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

Einfach und relativ einfach zu verstehen. OK ein Array of Record ist noch simpler, aber nach meiner Erfahrung ist eine TObjectlist/TList effizienter.

Ist aber vielleicht auch der Vorstellung geschuldet, daß ein Object komplexer ist als ein Record?

Gruß
K-H

[KetchUp]

Zitat von HolgerX:

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

Vielen Dank dafür. Jetzt müssen wir aber mal bei einer Herangehensweise bleiben (classes, records, Array of Record ) Das Programm muss nächste Woche fertig werden.

Meinetwegen mit classes. Ich hab versucht das Programm bei mir zu implementieren. Da gibt es gleich den ersten Fehler. Compiler meint TVocableList ist nicht deklariert. Dabei stehts aber drinne.

Delphi-Quellcode:

  private
    { Private declarations }
  public
    { Public declarations }
    FWordCount : integer;
    FWordCorrect : integer;
    FRandomNumber : integer;
    FVocableList : TVocableList;
  end;

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

Oder wenn Records einfacher sind, kann jemand das Programm für records umschreiben?

[DieDolly]

Zitat:

Meinetwegen mit classes.

Ist ja nicht so als ob ich das schon vor einigen Tagen mehrfach empfohlen habe

Korrekt heißt es übrigens mit Klassen. Auch wenn sich classes cooler anhört.

Zitat:

Ich hab versucht das Programm bei mir zu implementieren. Da gibt es gleich den ersten Fehler. Compiler meint TVocableList ist nicht deklariert. Dabei stehts aber drinne.

Typischer Copy&Paste. Das ist der Beweis, dass du dir den Code vorher nicht ordentlich genug angeguckt hast.

[HolgerX]

Hmm..

und wenn Du dir die Units angesehen hättest, dann währe dir die Unit UVocableList aufgefallen, diese enthält die Classendeclarationund die TVocableList.

So ist nicht alles in die Unit der Form geklatscht...

Zitat von p80286:

Zitat von HolgerX:

Hmm..

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

Einfach und relativ einfach zu verstehen. OK ein Array of Record ist noch simpler, aber nach meiner Erfahrung ist eine TObjectlist/TList effizienter.

Ist aber vielleicht auch der Vorstellung geschuldet, daß ein Object komplexer ist als ein Record?

Gruß
K-H

Wenn ich mir die Records von heute anschaue, ist da auch nicht mehr viel Unterschied zu einer Class..
constructor/functionen und so weiter...

Ich finde Klassen sauberer, da es ein 'create' / Benutzten und definiertes 'Free' gibt..
Bei Records sind diese mit der Variablendeklaration 'einfach' da.. (OK, wenn man nicht gerade mit Pointer auf Record arbeitet)
Und wenn der Scope weg ist, dann sind diese (hoffentlich) auch wieder sauber weg

Durch die Verwendung der ObjectList habe hier in diesem Beispiel nur das Herumkopieren von Array Teilen beim Löschen von Elementen mitten heraus umgangen...
Auch kümmert diese sich sauber um das Löschen der Objecte..

Im Beispiel habe ich dann nur noch das Visuelle in eigene Proceduren ausgelagert, weil ich keine langen Spaghetticode mag..

[EWeiss]

Zitat:

Das Programm muss nächste Woche fertig werden.

Ich hoffe du schaffst es auch..
Alle Leute die dir bisher geholfen haben sind nicht auf müssen aus und denen ist es egal ob du das in der nächsten Woche fertig haben musst.

Die machen es auf freiwilliger Basis.
Ein müssen seitens der Helfenden Hände hier gibt es nicht!

gruss

[DieDolly]

Klare Worte müssen ab und zu auch mal sein.
Klingt vielleicht hart, aber es ist die Wahrheit.

Häng dich rein, dann hast du nächste Woche den technisch wohl besten Vokabeltrainer der ganzen Klasse.

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