Discussion :

[krole57]

Bonjour je dois enlever la première partie d'un mot ou il y a une apostrophe :
l'arbre devient arbre j'ai deja un code mais il ne marche pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
function TForm3.enleveapastrophe(chaine : string):string;
 
begin
Delete(chaine, 1, 2);
result:=chaine;
end;
 
 
function TForm3.decoupe (chaine : string): TStringList;  // le contenu fichier serait les lignes de ma Tstringlist du texte
 var   listemot:TStringList ;
 i: integer;
 tmp:string;
 
begin
listemot:=TStringList.Create;
 
.....
......
for i:=listemot.count-1 DOWNTO  0 do
begin
if length(listemot[i])<3 then listemot.delete(i);
if pos('''', listemot [i]) > 0 then enleveapastrophe(listemot[i]);
end;

[Graffito]

Bonjour ami étourdi,

... then listemot[i]:=enleveapastrophe(listemot[i]);