Вырезать часть строки

[montreyka]

Доброго времени суток.
Подскажите новичку.
В 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;

[weech]

repeat
read(a); 
until Pos(a,s)=Pos('$',s)-2;
   repeat
   read(a);
   word:=word+a;
   until Pos(a,s)=Pos(' ',s);

Вроде так.

[montreyka]

спасибо, решил сделать так

Нашел позицию(pos) "$", записал в переменную, удалил(delete) все до нее, скопировал(copy) все до пробела и дальше по кругу.

[Прик]

ИМХО, лучше так:

uses StrUtils;

procedure TForm1.Button1Click(Sender: TObject);
var
  KP, KS : Integer;
  S, Word : string;
begin
  s := edit1.text;
  KP := Pos('$', S);
  KS := Pos(' ', S);
  while KP > 0 do begin
    Word := Copy(S, KP+1, KS-KP-1);
    ShowMessage(Word);
    Inc(KP); KP := PosEx('$', S, KP);
    Inc(KS); KS := PosEx(' ', S, KS);
    if KS = 0 then KS := Length(S)+1;
  end;
end;

[montreyka]

Сообщение от Прик

ИМХО, лучше так:

uses StrUtils;

procedure TForm1.Button1Click(Sender: TObject);
var
  KP, KS : Integer;
  S, Word : string;
begin
  s := edit1.text;
  KP := Pos('$', S);
  KS := Pos(' ', S);
  while KP > 0 do begin
    Word := Copy(S, KP+1, KS-KP-1);
    ShowMessage(Word);
    Inc(KP); KP := PosEx('$', S, KP);
    Inc(KS); KS := PosEx(' ', S, KS);
    if KS = 0 then KS := Length(S)+1;
  end;
end;

хм... спасибо тоже как вариант, наверное работать быстрее будет)