Паскаль Люди ps срочно надо написать программу со стрингами

[AndreiKA_FoReX]

Паскаль Люди ps срочно надо написать программу со стрингами

Все вхождения первого слова текста заменить последним его словом

 

[Vladimir_S]

Не понимаю. Сформулируйте более внятно и развернуто.
P.S. Ничего не обещаю - момент, сами понимаете...

 

[Darkcosinus]

Есть текст, нужно из него взять первое и последнее слово (кусок с начала до пробела и кусок с конца после пробела), потом пробежаться по остальным словам, и в случае совпадения любого слова с первым словом заменить это найденное слово (или слова) на последнее слово.

Имхо, так.

P.S. В PHP всё это можно написать в 2 строчки кода.

 

[Vladimir_S]

Можно попробовать. Только пусть заказчик подтвердит актуальность.

 

[SYVA]

И всего то

это простецкая задачка...
алгоритм решения очен прост!!!
примерно так
var
i,j,k: integer;
s,s1,s2,s3: string;
begin
s:= Edit1.Text;
s1:='';
s2:='';
s3:='';
for i:=1 to strlen(PChar(s)) do
begin
if s=' ' then break;
s1:=s1+s;
end;
for j:= strlen(PChar(s)) downto 1 do
begin
if s[j]=' ' then break;
s2:=s2+s[j];
end;
if j=1 then Label1.Caption:='В веденной строке одно слово'
else
begin
for k:=i to j do
s3:=s3+s[k];
end;
s:=s2+s3+s1;
Label1.Caption:=s;
end;

 

[Darkcosinus]

примерно так

Мне кажется, в школах-институтах изучают не Object Pascal (который Delphi), а обычный досовский Turbo Pascal.