Frage zu TStringList

[DeddyH]

Delphi-Quellcode:

procedure Portiere(const sl: TStrings);
var
   zaehler   : integer;
   Registry  : tRegistry;
   value     : string;
begin
  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; 
end;

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

begin
    ReadAll;
end.

[edit] Hatte vergessen, den Parameter zu übergeben. [/edit]