Дана строка, состоящая из русских слов, набранных заглавными бук- вами и разделенных пробелами (одним или несколькими). Преобразо

[Аватар]

Энда одного в конце не хватает, да Edit1 и Edit2 эта фунция не распознает. И название Length не в дугу - зачем использовать системные имена? При этом еще length(D) в коде есть и явно системное - вообще полный абзац. Или рекурсивный вызов себя?

[nadyaH]

что на что мне нужно заменить, чтобы программа работала правильно?

[Stilet]

function Length ( const SourceString : string ) : Integer;
var
 d:string;
 i:integer;
 o:String;
begin
 d:=edit1.Text;
 S:=D[1];
 for i:=1 to length(D) do begin
  if D[i]=S then O:=S;
   IF D[i]=S THEN o:=o+'.'
   else o:=o+D[i];
  if (D[i]=' ')and(D[i+1]<>' ') then S:=D[i+1];
 end;
 edit2.Text:=O;
END;

Только я не поймы всетки смысла сего кода...
Если и писать такое то:

function Length ( const SourceString : string ) : string;
var i:integer; c:char;
begin
 c:=SourceString[1];
 for i:=2 to Length(SourceString) do 
  if SourceString[i]=c then SourceString[i]:='.';
 Result:=SourceString;
END;

[nadyaH]

for i:=2 to Length(SourceString) do

в этой строке ошибку выдаёт

[Poma][a]

1) Вы назвали свою функцию Length, и в ней пытаетесь вызвать системную фук-к Length, без использования system - это идиотизм!

2)

const SourceString

И Вы пытаетесь менять эту строку - идиотизм #2..

[Serge_Bliznykov]

Виталий, но ТС сделала ошибку по незнанию, а Вы зачем её дублируете!?!?!?

Надя, Вам НЕЛЬЗЯ использовать имя Length в качестве имени вашей функции, потому что это имя СИСТЕМНОЙ функции. используйте любой другой допустимый синтаксисом языка идентификатор!

например:

function ReplaceFisrtCharEntrances( const SourceString : string ) : string;
var i:integer; 
begin
 result := SourceString;
 for i:=2 to Length(result) do 
  if  (result[i]=result[1]) then result[i]:='.';
END;

[nadyaH]

ваша программа не работает. тоже ошибку с end выдаёт

function ReplaceFisrtCharEntrances( const SourceString : string ) : string;
var i:integer;
begin
 result := SourceString;
 for i:=2 to Length(result) do
  if  (result[i]=result[1]) then result[i]:='.';
END;end.

[Stilet]

Вы зачем её дублируете!?!?!?

Потому что я хотел донести способ решения, я не дать повод для копипасте. Судя по последнему посту Надя так и не поняла как же правильно писать нужно.

[nadyaH]

если честно не поняла что вы хотели до меня довести до сведения.

[Аватар]

ваша программа не работает. тоже ошибку с end выдаёт

Ну если глазки протереть, потом напрячь зрение, то в конце функции можно заметить END;end. Ни какие извилинки в связи с этим не шевелятся?