Здравствуйте, x02x, Вы писали:

X>Помогите, пожалуйста!!!
X>Я делаю тест по "учебным" предметам и у меня такая фигня:
X>Есть например файл на диске "C" — word.txt, есть программка (точнее её ещё нет...) на Дельфи, на форме например есть 10 "Label'ов"... В файле word.txt есть 10 слов, причём каждое слово написано на новой строке. Как сделать так, чтобы при запуске программы, у каждого label'a, поле caption было равно каждому слову из файла word.txt. Буду очень признателен, если вы поможете бедному ламеру написать эту программу ...
X>Благодарю сразу.


Колобок прикатился и говорит :

-Назови каждый лейбл как Label1 Label2 Label3...Label10...
-Доверься дельфи, она их сама так назовет, только проверь...
— Затем напиши

var
 S:TStringList;
 I:integer;
begin
 S:=TStringList.Create;
 S.LoadFromFile('C:\word.txt');
 for i:=0 to S.Count-1 do begin
   (FindComponent('Label'+IntToStr(i+1)) as TLabel).Caption:=S[i];
 end;
 S.Free;
end;

— Ну ладно, я покатился...