Einzelnen Beitrag anzeigen

Rackergen2

Registriert seit: 13. Jul 2004
99 Beiträge
 
Delphi 7 Enterprise
 
#9

Re: Heftige String Untersuchung!!! Need Help!

  Alt 20. Jul 2004, 16:46
Was hälst du von einer Mischung von beiden? Verwalten mit records und speichern und lesen mit INI?

Delphi-Quellcode:
uses´
  IniFiles;

...

type
  tentity = record
    classname :string;
    origin :string;
    targetname:string;
  end;

...

private
  entityinfo: array of tentity;

...

procedure...
var
  sections: TStringlist;
  ini: TIniFile;
  i: Integer;
...
  ini:=TInifile.Create('C:\Test\Orte.ini'); //lässt sich auch durch einen Befehl auf den EXE-Ordner fixieren
  sections:=TStringlist.create;
  sections:=ini.readsections;

  setlength(entityinfo,sections.count);

  for i:=0 to length(entityinfo)-1 do
  begin
    entityinfo[i].classname:=ini.Readstring(inttostr(i),'classname','');
    entityinfo[i].origin:=ini.Readstring(inttostr(i),'origin','');
    entityinfo[i].targetname:=ini.Readstring(inttostr(i),'targetname','');
  end;
  Mit Zitat antworten Zitat