убавлять сиволы

[temned]

У мя есть текст, s1:=copy(vopros[m],0,dlina2/2);
Как вы видите, s=взять символы из другой строки от 0до середины, другая строка равно например vopros[m]:='Программирование на MP';
Как мне сделать так, чтобы s равнялась от начала до пробела, т.е чтоб например было не 'Программирова' , а 'Программирование' . Может как-то надо убавлять символы до тех пор , пока... Незна.ю помогите

[beZ_probleM]

i:=0;    // не обизательно обнулять
Str:=''; // не обезательно очищать
getChar(s,i);
i:=i+1;
while i<>' ' do     // пока і не равно "ПРОБЕЛ"
   begin
      str:=str+getChar(s,i);
      i:=i+1;
   end; 


[ViNT]

Все гораздо проще: s:=copy(0,pos(' ',vopros[1])-1,vopros[1]). Примерно так, может где-то на один символ ошибся, т.е. надо добавить/отнять единицу.

[beZ_probleM]

так правельнее :

s:=copy(vopros[1],0,pos(vopros[1],' ')-1)

[temned]

спасибо, я почти так и думал

[temned]

beZ_probleM, в твоем коде while i<>' ' do , но i же integer? код не работает
или подскажите как pos(vopros[m],' '); и вообще как вернуть не первое, а например третье сопадение с помощью pos??

[Romanzes]

Вот код, который ищет 10-е появление строки fragm в строке s.

  str:=s;
  for i:=1 to 10 do
  begin
    n:=Pos(s1,fragm);
    str:=Copy(str,Pos(str,fragm)+length(fragm),length(str));
  end;

[temned]

pos(vopros[m],' '); как вернуть не первое, а например третье сопадение с помощью pos??

[ViNT]

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

pos(vopros[m],' '); как вернуть не первое, а например третье сопадение с помощью pos??

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

[beZ_probleM]

Код который находит третий пробел и соответственно его номер

i:=0; j:=0; // не обизательно обнулять 
Str:='';      // не обезательно очищать 
getChar(s,i); 
i:=i+1; 
repeat
while i<>' ' do     // пока і не равно "ПРОБЕЛ" 
   begin 
      str:=str+getChar(s,i); 
      i:=i+1; 
   end;
j:=j+1;
until j=3; 


[temned]

i integer, как он может быть равен <>''? Vint обьясни свои вариант на примере

[beZ_probleM]

сорри извеняюсь) действительно ступил))) Ы
прост пишу с головы) на практике не реализовую

while getChar(s,i)<>' ' do

[beZ_probleM]

вот с помощью рos

s2:=vopros[1];
repeat
   s:=copy(s2,0,pos(s2,' ')-1);
   s1:=s1+s;   // строка из слов которые находятсо до пробелов
   s2:=copy(s2,pos(s2,' '),length(s2)-1);
i:=i+1;
until i=3; //количество пробелов 


[temned]

у мя такая фигня возникла. Имеется массив из 16строк, строки загружаются из rms. делаю футбольный менеджер, и строка имеет формат: 'Робинье/10\bra', где есть имя/номер\страна.
мне надо так:
name[i]:=copy(0,затем pos, из g[i], до тех пор пока не найдет /)
но поему не полушается, в шом проблема?

[Piligrim]

затем pos, из g[i], до тех пор пока не найдет /

непонятно