Schreiben von Daten in TStringlist funktioniert nicht

**netjoe**

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:

zusammenfalten · markieren

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.

Schreiben von Daten in TStringlist funktioniert nicht

Schreiben von Daten in TStringlist funktioniert nicht

Forumregeln