Hallo,
ich habe ein Problem mit dem schreiben von Daten in eine TStringlist. Die TStringlist ist teil eines records (laendertyp) wie im Quellcode zu sehen ist.
Ich erzeuge anschließend ein dynamisches Array vom Typ "laendertyp". Wenn ich nun versuche Daten in die Stringliste zu schreiben bekomme ich beim Programmstart eine Speicher Zugriffsverletzung!
Was mache ich falsch? Kann mir jemand helfen?
Hier ist der besagte Code:
Delphi-Quellcode:
unit USammeln;
interface
uses
Dialogs, SysUtils, classes, Windows, Messages, Graphics,
Controls, StdCtrls, IdHTTP, Forms, ComCtrls, UGlobal,
ULokalTrace,syncobjs,USRTrace;
type
laendertyp =
Record
land:
String;
server: TStringlist;
zeit: TStringList;
end;
TSammeln =
class(TGlobal)
constructor create (r_main : Tobject);
destructor destroy;
private
...
CountryListe:
Array of laendertyp;
...
procedure Tsammeln.CountryListeFuellen;
//jl1
var
i: Integer;
begin
SetLength(CountryListe,2);
for i:=0
to 1
do
CountryListe[i].land:='
us';
CountryListe[i].server.add('
192.168.213.10');
CountryListe[i].zeit.add('
20 ms');
end;
end;
...
end.