Delphi Remplacements de mots

Fermé
Dragzz Messages postés 4 Date d'inscription mardi 17 septembre 2013 Statut Membre Dernière intervention 1 juillet 2014 - 30 juin 2014 à 15:38
Bonjour,
Je suis actuellement entrain de créer un programme qui remplace des mots(les noms, des verbes..) d'un texte. Malheureusement je ne suis que débutant, je cherche a faire un programme qui se transforme par exemple :
"We have used StringReplace in many places in our code without any real
problems.
But now we encountered a customer case, which we had not anticipated,
where the data we need to parse is way larger than anything we had
imagined..."
Après avoir cliqué sur le bouton remplacer --->
"We have used StringReplace in bagels places in our code without bagels real
problem
But now we burger a customer case, which we had not burger,
where the data we need to parse is bagel larger than anything we had
burger..."
Voici ce que j'ai pour l'instant où je ne suis pas vraiment satisfait sur le résultat que je cherche.

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls,FonctionsChaine, Spin, ExtCtrls;

type
TForm1 = class(TForm)
ChaineDeBase: TEdit;
SousChaine: TEdit;
Resultat: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
ButtonStrReplace: TButton;
EditreplacePar: TEdit;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure ButtonStrReplaceClick(Sender: TObject);

private
{ Déclarations privées }
public
{ Déclarations publiques }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
Resultat.Text:=Gauche(SousChaine.Text,ChaineDeBase.Text);
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
Resultat.Text:=GaucheDuDernier(SousChaine.Text,ChaineDeBase.Text);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Resultat.Text:=Droite(SousChaine.Text,ChaineDeBase.Text);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Resultat.Text:=DroiteDroite(SousChaine.Text,ChaineDeBase.Text);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
Resultat.Text:=IntToStr(NbSousChaine(SousChaine.Text,ChaineDeBase.Text));
end;

procedure TForm1.ButtonStrReplaceClick(Sender: TObject);
begin
Resultat.Text:=StrReplace(SousChaine.Text,EditreplacePar.Text, ChaineDeBase.Text)
end;

end.

Je cherche donc à faire une sorte de traduction personnalisé, avoir un texte, cliquer, puis remplacer par exemple tout les noms ou verbes en er (ainsi gérer les accents en un mot quelconque.(ex: verbe - tirer-lancer-changer en le mot 'bisous')

D'après certaine recherche j'ai réussi à avoir une idée des fonctions qui me manque.
__________
var
result : string;

begin
// Concatenate using the +
result := 'Hello '+'cruel '+'World';
ShowMessage(result);

// Concatenate using the Concat function
result := Concat('Hello ','cruel ','World');
ShowMessage(result);
end;
______________________
var
before, after : string;

begin
// Try to replace all occurrences of a or A to THE
before := 'This is a way to live A big life';

after := StringReplace(before, ' a ', ' THE ',
[rfReplaceAll, rfIgnoreCase]);
ShowMessage('Before = '+before);
ShowMessage('After = '+after);
end;
_________________

function Str_Replace(Str: string; DChar, FChar: Char): string;

var
indx: integer; // L'index de la boucle for
tempStr: string; // Variable temporaire
begin
for indx := 1 to length(Str) do
begin
if(Str[indx] = DChar) then tempStr := tempStr + FChar
else tempStr := tempStr + Str[indx];
end;

Result := tempStr;
end;
_______________
je n'arrive pas du tout à les insérer ou s'ils sont au finalement utilisable

Si vous pouvez donc m'aider en écrivant ce qu'il faut pour que je continue mon programme, comme je suis encore débutant, je ne comprendrais pas les codes compliqués ou écris à moitié!
C'est l'une des raisons pour laquelle je viens ici demander de l'aide, cela me prend la tête depuis quelque jours à essayer pleins de nouvelles idées farfelus tirer inspirer par internet.

Merci de votre temps,
Cordialement.