Не получается заполнить Label2

[Shouldercannon]

Ни как не могу заполнить NameFileSend, либо получается заполнить на половину (start_bla) или с лишней частью (start_blabla_end.rar13134685)

var
  Form1: TForm1;
  text: string;
  a, b: Integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  text := '77' + 'programmersforum.ru' + Chr(140) + 'start_blabla_end.rar' + Chr(152) + '13134685';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  a := Pos(Chr(140), text);
  b := Pos(Chr(152), text);
  Label1.Caption := Copy(text, 3, a - 3);
  Label2.Caption := Copy(text, a + 1, length(text) + ?); // Пробовал прибавлять и отнимать b от общей длины + дополнительное количество символов
  Label3.Caption := StrToInt(Copy(text, b + 1, length(text)));

  MessageBox(0, PChar(Label1.Caption + #13#10 + Label2.Caption + #13#10 + IntToStr(Label3.Caption)), 'Информация', MB_ICONInformation);
end;

[Marsel737]

А что именно хочеш в label2 записать? start_blabla_end.rar?

function Copy ( Source : string; StartChar, Count : Integer ) : string;

Source - текст, StartChar - номер символа начиная с которго нужно копировать, Count - число символов.

[Sanprof]

вобще я text как переменную не использую сам наткнулся на грабли когда менял ее, а в месте с ней менялся и заголовок формы, не советую исползовать переменную text, только если это требуется

  txt := '77' + 'programmersforum.ru' + Chr(140) + 'start_blabla_end.rar' + Chr(152) + '13134685';
  Delete(txt, 1, 2);
  Label1.Caption := Copy(txt, 1, Pos(Chr(140), txt)-1);
  Delete(txt, 1, Pos(Chr(140), txt));
  Label2.Caption := Copy(txt, 1, Pos(Chr(152), txt)-1);
  Delete(txt, 1, Pos(Chr(152), txt));
  Label3.Caption := (Copy(txt, 1, length(text)));

[Shouldercannon]

Я то думал почему в Caption формы не то, что я прописывал, всему виной была переменная text.

[XeruH]

Что то не верится в это ) строка Form1.Caption := txt только выводит в заголовок окна txt и все.

[Shouldercannon]

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

Что то не верится в это ) строка Form1.Caption := txt только выводит в заголовок окна txt и все.

Если про это

вобще я text как переменную не использую сам наткнулся на грабли когда менял ее, а в месте с ней менялся и заголовок формы, не советую исползовать переменную text, только если это требуется

То создайте проект и создайте переменную text и задайте ей значение. После запуска проекта значение из переменной text само подставится в Caption формы.

[XeruH]

К сожалению сейчас проверить не могу. Свойства Text вроде у TForm же нету.

[Sanprof]

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

Что то не верится в это ) строка Form1.Caption := txt только выводит в заголовок окна txt и все.

конечно txt это переменная которую я предложил, а вот попробуйте нигде не объявлять переменную text в модуле и присвойте ей какое нибудь значение, вы увидите, что Caption формы изменилось.