ZalivkoDenis
Full Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору JonyBes А вот так, если слово в предложении (само-собой -- можно упростить . Так просто понятней ): function ChangeLastChar(InStr:string; SWord:string; NewLastChar:Char):string; var PosLChar:Integer; Part1, Part2: String; begin PosLChar := Pos(AnsiLowerCase(SWord),AnsiLowerCase(InStr)); if PosLChar=0 then begin Result:=InStr;Exit; end; PosLChar := PosLChar+Length(SWord)-1; Part1:= Copy(InStr,1,PosLChar-1); Part2:= Copy(InStr,PosLChar+1,Length(InStr)-PosLChar); Result := Part1+NewLastChar+Part2; end; procedure TForm2.btn_RunClick(Sender: TObject); begin // Text = "Теория без практики мертва"; edt_Sentence.Text:=ChangeLastChar(edt_Sentence.Text,'практики','a'); // Text = "Теория без практикa мертва"; end; |