Memo

Signaler
-
Messages postés
420
Date d'inscription
samedi 17 mai 2003
Statut
Membre
Dernière intervention
6 mai 2019
-
Bonjour,

Dans ma form j ai un tmemo qui m affiche des relevé provenant d'un boitier électronique il m afiche ce ci en utilisant ce code memo2.Lines.SetText(sicomm1.SiC_PunchingCodeNumbers[n]) =>

10
11
12
13

or je souhaiterais que ces chiffre s'affiche comme ca dans le memo =>

10;11;12;13

Cordialement et bonne fin de journée

2 réponses

Messages postés
675
Date d'inscription
jeudi 17 avril 2008
Statut
Membre
Dernière intervention
19 février 2019
13
Salut
vois ce que tu peux faire avec ce petit code :
procedure TForm1.Button5Click(Sender: TObject);
var i:integer; z:string;
begin
z := '';
for i:=0 to memo2.Lines.Count-1 do z := z + memo2.lines[i] + ';' ;
memo2.Clear;
memo2.lines.Add(z)
end;

à utiliser après ton chargement de memo2 par ton code
Messages postés
420
Date d'inscription
samedi 17 mai 2003
Statut
Membre
Dernière intervention
6 mai 2019
16
Salut,

Ou bien comme ça :
with Memo do
    Text := StringReplace(Lines.CommaText, ',', ';', [rfReplaceAll]);


korgis