Programm irreperabel?

[toms]

Zitat:

Memo2.Lines.LoadFromFile(extractfilepath(paramstr( 0))+'Data\Konto1.shd');
Memo1.Lines.LoadFromFile(extractfilepath(paramstr( 0))+'Data\Konto1.kaz');

{...}

Memo39.Lines.LoadFromFile(extractfilepath(paramstr (0))+'Data\Konto20.shd');
Memo40.Lines.LoadFromFile(extractfilepath(paramstr (0))+'Data\Konto20.kaz');

Könntest du etwa so umschreiben:

Delphi-Quellcode:

var
  i: Integer;
  strFilePath: string;
begin
  strFilePath := ExtractFilePath(ParamStr(0));
  for i := 1 to 39 do
  begin
    TMemo(FindComponent('Memo'+IntToStr(i))).Lines.LoadFromFile(strFilePath +'Data\Konto'+IntToStr(i)+'.kaz');
    TMemo(FindComponent('Memo'+IntToStr(i+1))).Lines.LoadFromFile(strFilePath +'Data\Konto'+IntToStr(i)+'.shd');
  end;
end;