Einzelnen Beitrag anzeigen

Benutzerbild von X-Dragon
X-Dragon

Registriert seit: 14. Jan 2003
Ort: Schortens
289 Beiträge
 
Delphi 6 Enterprise
 
#21
  Alt 13. Mai 2003, 14:33
So viel Aufwand ist es doch eigentlich auch nicht, das man unbedingt noch eine extra Komponente dafür brauch, oder? Den Code hab ich aber nur mal eben so zusammengeschrieben und nicht getestet! :

Delphi-Quellcode:
  setupliste := TStringList.Create;

  if FileExists(ExtractFilePath(Application.ExeName)+'setup.txt') then
    setupliste.LoadFromFile(ExtractFilePath(Application.ExeName)+'setup.txt');
      
  for i := 0 to setupliste.count -1 do
    if Pos(setupliste[i],'ServerPackages') = 0 then
      Listbox1.Add(Copy(Pos(setupliste[i].'=',Count(setupliste[i])));
  Mit Zitat antworten Zitat