Построчное чтение из файла используя TStringList

[Guneska]

Пожалуйста, подскажите дураку, как тут организовать построчное чтение? Прочитала уже безумное количество всякой информации и перепробовала кучу способов - не работает. Работаю в Delphi XE3.
Код Delphi

procedure TForm2.FormCreate(Sender: TObject); 
begin 
t:=TStringList.Create; 
if FileExists('2.txt') 
 then 
 t.LoadFromFile('2.txt'); 
 form2.Label1.Caption:=t.Text; 
end;

[GreenWizard]

procedure TForm2.FormCreate(Sender: TObject); 
var
  t: TStringList;
begin 
  if FileExists('2.txt') then
  begin
    t := TStringList.Create;
    try
      t.LoadFromFile('2.txt'); 
      form2.Label1.Caption := t.Text; 
    finally
      t.Free;
    end;
  end;
end;

1) нечего приводить код, который даже нельзя запустить (если у вас t объявлен где-то вне ф-ии, то я бы руки ампутировал по самые колени)
2) создал объект - удали его!
3) TLabel, вроде, многострочность не поддерживает (лень поднимать виртуалку и смотреть так ли это, но я всегда его использовал лишь для однострочного текста, а для многострочного есть TMemo)

[Guneska]

Сообщение от GreenWizard

procedure TForm2.FormCreate(Sender: TObject); 
var
  t: TStringList;
begin 
  if FileExists('2.txt') then
  begin
    t := TStringList.Create;
    try
      t.LoadFromFile('2.txt'); 
      form2.Label1.Caption := t.Text; 
    finally
      t.Free;
    end;
  end;
end;

1) нечего приводить код, который даже нельзя запустить (если у вас t объявлен где-то вне ф-ии, то я бы руки ампутировал по самые колени)
2) создал объект - удали его!
3) TLabel, вроде, многострочность не поддерживает (лень поднимать виртуалку и смотреть так ли это, но я всегда его использовал лишь для однострочного текста, а для многострочного есть TMemo)

Я не зря написала в раздел "Новички", но спасибо за столь прямое разъяснение где нужно писать "t" и особенно последствия его неправильного написания )))
Мне и нужно именно построчный вывод из текста, т.к. это будущий тест.
Ваш код, кстати, не работает, так и продолжает выводить в Label1 ВЕСЬ текст сразу

[GreenWizard]

Используй TMemo.... св-во ReadOnly = True, цвет ставь серым..... получится кривая импровизация многострочной надписи
а код будет:

procedure TForm2.FormCreate(Sender: TObject); 
begin 
  if FileExists('2.txt') then
    Memo1.Lines.LoadFromFile('2.txt'); // не обязательно писать Form2.Memo1
end;

[Develop]

Может я не так понял, но наверное ТС хотел увидеть что-то типа такого:

  fileList:= TStringList.Create;
  try
    fileList.LoadFromFile(fName);
    //
    for i:= 0 to fileList.Count-1 do
    begin
        str:= fileList[i];
        ...
        и т.д.

    end;
  finally
    fileList.Free;
  end;

[Guneska]

Спасибо всем, ребята, видимо я полный дурак (или ещё не "созрела" для STringList), и решила отказаться от TStringList и делать другим способом. Спасибо!

[GreenWizard]

в аську можешь написать, помогу.... один фиг щас скучно