Label загрузить caption из txt..?

[kta87]

Что то я туплю... имеется 3 компонента lebel , как подгрузить в них параметр caption таким образом что бы порядковый номер label.caption соответствовал номеру строки txt файла?

[GreenWizard]

если вы, kta87, про Delphi, то можно так:

function LoadTXT(const File_: string): string;
var
  Tmp: TStringList;
begin
  Result := '';
  Tmp :=  TStringList.Create;
  try
    Tmp.LoadFromFile(File_);
    Result := Tmp.Text;
  finally
    Tmp.Free;
  end;
end;
.........................................
Label1.Caption := LoadTXT('1.txt');

[kta87]

GreenWizard, эта функция вроде как погружает в 1 label..? а мне нужно в несколько, причем номер лебла - это номер строки, а файл должен быть 1. или я не прав?
п.с. да, delphi

[GreenWizard]

тогда нужно либо явно:

procedure LoadTXT(const File_: string);
var
  Tmp: TStringList;
begin
  Tmp :=  TStringList.Create;
  try
    Tmp.LoadFromFile(File_);
    Label11.Caption := Tmp.Strings[1];
    Label12.Caption := Tmp.Strings[2];
    Label13.Caption := Tmp.Strings[3];
  finally
    Tmp.Free;
  end;
end;

либо более умный код писать

[kta87]

Ок! на первое время и этот явный пойдет!

[DiemonStar]

procedure TForm1.LoadTXT(const File_: string);
var
  Tmp: TStringList; I : Integer;
begin
  Tmp :=  TStringList.Create;
  try
    Tmp.LoadFromFile(File_);
    for I := 0 to ControlCount -1 do
      if Controls[I] is TLabel then
        (Controls[I] as TLabel).caption := Tmp[Controls[I].Tag];
  finally
    Tmp.Free;
  end;
end;

выбирает строку по Tag у Label-ов. Если чуть поизвращаться, то индекс строки можно и из имени вытащить - там несложно.