строковые шалости)

[Алёна]

подскажите плиз элементарщину неучу: как выдрать слово Элементарно из *Элементарно* Ватсон , где *Элементарно* Ватсон = полю в табличке (стринговое). Знаю что ответ очеведин, но сижу парюсь). Спасибо за понимание, господа.

[vedro-compota]

на делфи? ))
-------------------------
s1:= stringgrid.cells[i,j]; // твоя фраза
for i:=1 to 11 do // вот тут не уверен- с единицы ли ))
s2:=s2+s1[i]; //"элементарно" добавляем очередной символ
-----------------------------------
это если у тебя начинается с "элеметарно" (нет пробела или ещё чего-нибудь)

[Grag]

А перед циклом не забудь сделать следующее

S2:='';

Только я бы сделал не так, а вот так:

i:=1;
S2:='';
while (s1[i]<>' ') and (i<=Length(S1)) do
  begin
    S2:=S2+S1[i];
    Inc(i)
  end

Тогда можно выдрать не только "Элементарно", но и любое первое слово... А еще лучше делать анализ не на ' ' (пробел), а на все знаки препинания...

[vedro-compota]

Grag, как всегда прав 0)))

[Алёна]

чето не въехала, если честно...у меня ага дельфи) только искать надо символ *,пробелов нету просто слово в звездочках и данные выдираются из квери типа так qvatson.FieldByNAme('slovo').AsStri ng

[Stilet]

 s:='*Элементарно* Ватсон ';
 s:=copy(s,pos('*',s)+1,length(s));
 s:=copy(s,1,pos('*',s)-1);

Смысл понятен?

[RUSt88]

a: array[0..1] of integer;
i, k: integer;
str, temp: string;

k := 0;
str := qvatson.FieldByNAme('slovo').AsString;
for i := 1 to Length(str) - 1 do begin
	if ( str[i] = '*' ) then begin
		if ( k < 2 ) then begin
			a[k] := i;
			inc(k);
		end
		else begin
			break;
		end;
	end;
end;
temp := Copy(str, a[0] + 1, a[1] - a[0] - 1);

[настенка=)]

Приветик=))))
нужна помощь по бейсику=)))
плиз