Frage zu TStringList

[p80286]

Hallo zusammen,

ich hätte das so gelöst:

Delphi-Quellcode:

function Portiere: TStringlist; 
var 
  zaehler   : integer; 
  Registry  : tRegistry; 
  value     : string; 
  sl        : tstringlist;
begin 
  sl:=tstringlist.create;
  Registry := tRegistry.Create; 
  Try 
    Registry.RootKey := HKEY_LOCAL_MACHINE;; 
    if Registry.OpenKey ('\Software\KUBA\Minimize', False) then 
      begin 
        for zaehler := 0 to 100 + 1 do 
          begin 
            Value := Registry.ReadString (IntToStr(zaehler)); 
            sl.add(Value); 
          end; 
        Registry.CloseKey; 
      end; 
  Finally 
    Registry.Free; 
  End; 
  result:=sl;
end; 

procedure ReadAll; 
var 
    zaehler   : integer; 
    Value     : string; 
    sl        : TStringList; 
begin 
  try 
    sl:=Portiere(sl); 
    for zaehler := 0 to sl.Count - 1 do 
        begin 
          ShowMessage(sl[zaehler]); 
        end; 
  finally 
    sl.Free; 
  end; 
end; 

begin 
    ReadAll; 
end.

Voll daneben? oder Geschmackssache? Speicherverschwendung?

Gruß
K-H