[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.

[montukXD]

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

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

увы вывожу st и st1 в эдиты, но они пусты :/

[angvelem]

Это локальные!!! переменные, объяви их глобально.

[Bargest]

Код:

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

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

Поскольку в Copy вторым параметром количество символов.

[m1sclick]

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

[Bargest]

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

Используй pos, copy и delete делов то.

Можно и так. Но в теории PosEx в несколько раз быстрее: не надо кромсать строку, а делфа при удалении куска строки создает новую и копирует туда содержимое старой за исключением ненужной части. PosEx же по идеи прибавляет к началу строки номер символа и начинает искать оттуда.

[montukXD]

Всем спасибо, все ок. оказалось все проще чем я думал

[angvelem]

Всё-таки я соврал, а ведь предупреждал ведь.

[montukXD]

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

Всё-таки я соврал, а ведь предупреждал ведь.

попытка не пытка

[montukXD]

procedure TForm2.Button5Click(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;

вот еще вариант