Forum: Programmieren allgemein
by xineohp,
13. Apr 2004
wohl wahr, aber bist du wirklich der Ansicht, dass das dann noch eine "elegante" Lösung ist :gruebel: In diesem speziellen Fall meine ich.
Forum: Programmieren allgemein
by xineohp,
13. Apr 2004
Ups ... :pale: peinlich, fehlt natürlich ein ":string"
Forum: Programmieren allgemein
by xineohp,
13. Apr 2004
ne andere Möglichkeit wäre eine Funktion:
function TForm1.MB(i :integer);
var List:TStringList;
begin
List:=TStringList.Create;
List.LoadFromFile('C:\Text.txt');
result := List.Strings;
Forum: Programmieren allgemein
by xineohp,
13. Apr 2004
moin,
wie wärs mit:
procedure TForm1.MB(i: integer);
var List:TStringList;
begin
List:=TStringList.Create;
List.LoadFromFile('C:\Text.txt');
case i of
Forum: Programmieren allgemein
by xineohp,
13. Apr 2004
oder ganz dynamisch:
procedure TForm1.MB(i: integer);
var List:TStringList;
begin
List:=TStringList.Create;
List.LoadFromFile('C:\Text.txt');
(findcomponent('Label'+inttostr(i)) as TLabel).Caption := List.Strings;