Elemente aus TStringList in Laufzeit entfernen

[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