modiffication d'un text dans un edit
bonjours a toutes et tous,
je suis sans expérience ni formation en Delphi mon edi est delphi7
après avoir chercher sur les forum je n'ai pas réussi a trouvé la fonction que je cherche !!!!!, je vous soumet donc une question sur une fonction
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
| Form1.Memo1DblClick
var
s,r:string;
begin
//ici j'envoie le text dans mon edit1 sa marche
// edit1.text:=memo1.seltext; // ok ( :020000040000FA )
// ici je remplace cet fonction
s:=memo1.seltext; // s récupère seltext
////////////////////////////////////////////////////////////////////////
r:=fonction pour retiré les deux (:) et (FA) ???
///////////////////////////////////////////////////////////////////////
edit1.text:=r;// r:= devrait être sa (020000040000)
end; |
la fonction que je cherche c'est :
comment supprimé les deux point (:) devant ma ligne et aussi les deux dernier caractère (FA)
le but est de pouvoir réalisé le checksum de ma ligne
cordialement
Alain
modification nombre de caractère -2
bonsoir shailetroll,
bon ai bossé avec la base de votre code
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
| procedure TForm1.Memo1DblClick(Sender: TObject);
var
charcount: integer;
s,t: string;
begin
edit1.Text:= memo1.SelText;
edit1.text:= StringReplace(edit1.Text, ':', '',[rfReplaceAll, rfIgnoreCase]) ; // supprime les : impec
charcount:= length(edit1.Text);
s:= inttostr(charcount);
label13.Caption := ' il y as '+ (inttostr(charcount) + ' caractères '); // me dit le nombre de caractère dans label13 ok
///////////////////////////////////////////////////////////////////////////////////////////////
// ici a trouvé comment supprimé les dernier caractère
// t:= charcount-2; // ou s-2 ?????
edit1.text:= StringReplace(edit1.Text, t , '',[rfReplaceAll, rfIgnoreCase]) ;
//////////////////////////////////////////////////////////////////////////////////////////////
end; |
cordialement
Alain
Citation:
Envoyé par
ShaiLeTroll
Si ce n'est pas positionnel soit que la réponse est Non pour "Si ta chaine a toujours la même longueur et le même formatage"
Code:
edit1.text:= StringReplace(edit1.text:= StringReplace(memo1.seltext, ':', '', [rfReplaceAll, rfIgnoreCase]), 'FA', '', [rfReplaceAll, rfIgnoreCase])
