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