Delphi. Работа с .txt

[Real_Djee]

Здравствуйте, подскажите пожалуйста,

на событие onShow формы на которой есть PageControl, создаю TabSheet используя цикл for, на TabSheet в этом же цикле создается Label.
есть txt файл в котором строки имеют вид:
1_первая строка
2_строка
3_...
теперь вопрос:
как сделать что бы в Label на 1 TabSheet записывалось все что идет после 1_, соответственно на Label_2 все что после 2_ и т.д.??

[BDA]

Если не обязательно использовать тхт файл, то посмотрите на ini.
Вы сможете получать строки, просто формируя обращения к нужным полям (параметрам).

Или можно "заморочиться" с тхт, но тогда придется считывать построчно файл и "резать" полученную строку (copy(str,3,length(str)-2)).

Для более предметного разговора выложите свой проект (архивом) или остов проекта (хотя, наверное, он сейчас как раз на этой стадии).

[Real_Djee]

Да ini действительно лучше,
но хотелось бы разобраться куда в цикл включать работу со строками?

procedure TMainForm.FormShow(Sender: TObject);
var
  i: integer;
begin
for i:=0 to 49 do
begin

    Page := TTabSheet.Create(MainForm);
    Page.PageControl := PageControl1;
    Page.Name := 'Sheet_'+IntToStr(i+1);
    Page.Caption := IntToStr(i+1);
    Page.ImageIndex := i+1;
    Page.Left:=4;
    Page.Top := 27;
    Page.Visible:= True;

    Quest:= Tlabel.Create(Page);
    Quest.Parent := Page;
    Quest.Name:= 'QuestLabel_'+IntToStr(i+1);
    Quest.WordWrap:= True;
    Quest.Left:= 50;
    Quest.Top:= 50;
    Quest.Font.Size:= 24;
    Quest.Font.Name := 'Arial';
end;
end;

[BDA]

uses inifiles;
...
procedure TForm1.FormShow(Sender: TObject);
var
  i: integer;
  ini: TIniFile;
begin
  ini := TIniFile.Create(ExtractFilePath(ParamStr(0)) + '\MyIni.ini');
  for i := 0 to 49 do
  begin

    Page := ttabsheet.Create(Form1);
    Page.PageControl := PageControl1;
    Page.Name := 'Sheet_' + IntToStr(i + 1);
    Page.Caption := IntToStr(i + 1);
    Page.ImageIndex := i + 1;
    Page.Left := 4;
    Page.Top := 27;
    Page.Visible := True;

    quest := tlabel.Create(Page);
    quest.Parent := Page;
    quest.Name := 'QuestLabel_' + IntToStr(i + 1);
    quest.Caption := ini.ReadString('Questions',
      'QuestLabel_' + IntToStr(i + 1), 'QuestLabel_' + IntToStr(i + 1));
    quest.WordWrap := True;
    quest.Left := 50;
    quest.Top := 50;
    quest.Font.Size := 24;
    quest.Font.Name := 'Arial';
  end;

  ini.Free;
end;

Сам файл myini.ini (который должен быть около exe)

[Questions]
QuestLabel_1 = значение_1
QuestLabel_2 = значение_2

[Real_Djee]

А почему у меня в Quest.Caption записываетя как я понимаю значение по умолчанию а не сама строка?
Например ini файл

[Questions]
 QuestLabel_1 = Это первая строка
 QuestLabel_2 = Это вторая ст.....

[BDA]

Наверное потому, что вы еще не описали все строки
У меня правильно показываются на первых двух вкладках, а дальше идут по умолчанию.
(после запуска не совсем правильно показывается - на первой вкладке questlabel_50)

[Real_Djee]

да нет я не об этом, я так понимаю что в QuestLabel_1 и 2 уже должны быть значения из ини файла но у меня даже 1 не показывает, может не правильно написан ини

[Questions]
QuestLabel_1=Строка первая
QuestLabel_2=Строка вторая
...

его ведь не обязательно сразу весь описывать?

[BDA]

Вот пример. Проверьте работоспособность.
Сразу все можно не описывать.

[Real_Djee]

Большое спасибо за подсказку, нашел ошибку даже стыдно какую...

[BDA]

Пожалуйста.
Что же это может быть за ошибка такая?)
Кстати, правильнее написать ExtractFilePath(ParamStr(0)) + 'MyIni.ini' (иначе два слеша будут, правда это ни на что не влияет).