[montukXD]

Доброго времени суток.
Подскажите новичку.
В ini файле есть строка: VXZC$80699453440 VCZX2$27412221952 ZXCV3$53287231488
Что нужно сделать чтоб часть строки выводилась в label от $ до пробела, затем от 2$ до второго " " и т.д. цифр между символами может быть разное количество. Кстати после символов будут только цифры, думаю это как то меняет дело
Чтение из ini файла и вывод я примерно понимаю как сделать, но если что то посоветуете буду признателен.

Следующий способ не подходит т.к. неизвестно кол-во цифр:

Код:

procedure TForm2.Button5Click(Sender: TObject);
var s,word: string;
begin
  s:=edit1.text;
  word:=Copy(s,1,Pos('2$',s)-2);
  ShowMessage('Свободно: '+word);
end;

[Bargest]

PosEx. Ищем $, ищем пробел, копируем, ищем $ после найденной позиции, ищем пробел после найденной, копируем, ...

[montukXD]

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

PosEx. Ищем $, ищем пробел, копируем, ищем $ после найденной позиции, ищем пробел после найденной, копируем, ...

смысл то я понимаю, я бы хотел попросить хотябы приблизительно написать код как будет смотреться я совсем новичок

[angvelem]

Код:

procedure TForm2.Button5Click(Sender: TObject);
var
  St, St1 : String;
  I, J : Integer;
begin
  I := PosEx(Edit1.Text, '2$', 0);
  J := PosEx(Edit1.Text, ' ', 0);
  St := Copy(Edit1.Text, I, J - 1);

  I := PosEx(Edit1.Text, '2$', J);
  J := PosEx(Edit1.Text, ' ', I);
  St1 := Copy(Edit1.Text, I, J - 1);
end;

Примерно так, если не соврал.

[montukXD]

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

Код:

procedure TForm2.Button5Click(Sender: TObject);
var
  St, St1 : String;
  I, J : Integer;
begin
  I := PosEx(Edit1.Text, '2$', 0);
  J := PosEx(Edit1.Text, ' ', 0);
  St := Copy(Edit1.Text, I, J - 1);

  I := PosEx(Edit1.Text, '2$', J);
  J := PosEx(Edit1.Text, ' ', I);
  St1 := Copy(Edit1.Text, I, J - 1);
end;

Примерно так, если не соврал.

Ругается на PosEx Undeclared identifier
как и где его описать?

[angvelem]

Добавить в uses, StrUtils.