Zu wenig Arbeitsspeicher Fehler

[Sir Rufo]

Und so sieht das dann in lesbar aus

Delphi-Quellcode:

procedure TForm1.FormCreate( Sender : TObject );
var
  LIni : TInifile;
  LCount : Integer;
begin
  LIni := TInifile.Create( 'C:\ProgramData\L-Write\crepesworker_user.ini' );
  try
    LCount := LIni.ReadInteger( 'Anzahl', 'Anzahl', 0 );
  finally
    LIni.Free;
  end;
  SetLength( FVorname, LCount );
  SetLength( FName, LCount );
  SetLength( FPin, LCount );
  SetLength( FBearb, LCount );
  GetList( LCount );
  Scrollbar1.Max := LCount;
end;

procedure TForm1.GetList( ACount : Integer );
var
  LIni : TInifile;
  LIdx : Integer;
  LUserSection : String;
begin
  LIni := TInifile.Create( 'C:\ProgramData\L-Write\crepesworker_user.ini' );
  try
    for LIdx := 0 to ACount - 1 do
    begin
      LUserSection := 'User' + IntToStr( LIdx );
      FVorname[LIdx] := LIni.ReadString( LUserSection, 'Vorname', 'Not_found' );
      FName[LIdx] := LIni.ReadString( LUserSection, 'Name', 'Not_found' );
      FPin[LIdx] := LIni.ReadInteger( LUserSection, 'Pin', 0 );
      FBearb[LIdx] := LIni.ReadBool( LUserSection, 'Bearb', true );
    end;
  finally
    LIni.Free
  end;
end;

und der Fehler wäre dir sofort ins Auge gefallen - nein, du hättest den erst nicht gemacht, weil es schon komisch aussieht

Delphi-Quellcode:

    for LIdx := 0 to ACount - 1 do
    begin
      LUserSection := 'User' + IntToStr( LIdx );
      FVorname[ACount] := LIni.ReadString( LUserSection, 'Vorname', 'Not_found' );
      FName[ACount] := LIni.ReadString( LUserSection, 'Name', 'Not_found' );
      FPin[ACount] := LIni.ReadInteger( LUserSection, 'Pin', 0 );
      FBearb[ACount] := LIni.ReadBool( LUserSection, 'Bearb', true );
    end;

Komisch, selbst bei diesem Code-Fragment weiß man sofort, welche Variablen lokal, welche die Argumente sind und welche zur Klasse gehören.