Einzelnen Beitrag anzeigen

netjoe

Registriert seit: 11. Jan 2004
8 Beiträge
 
#1

Schreiben von Daten in TStringlist funktioniert nicht

  Alt 17. Jan 2004, 17:52
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.
  Mit Zitat antworten Zitat