Procedure aufrufen...

[xineohp]

ne andere Möglichkeit wäre eine Funktion:

Delphi-Quellcode:

function TForm1.MB(i :integer); 
var List:TStringList; 
begin 
     List:=TStringList.Create; 
     List.LoadFromFile('C:\Text.txt');
 
     result := List.Strings[i]; 
  
     List.Free; 
end;

die dann mit

Delphi-Quellcode:

procedure TForm1.CheckBox1Click(Sender: TObject); 
begin 
  Label1.caption := MB(0);
end;

aufgerufen wird. Scheint mir bei einer begrenzten Anzahl von Labels hier die sinnvollste Variante zu sein

so, nun fällt mir nix mehr dazu ein
phoenix