Bonjour,
ce matin un petit casse-tête à propos de quotedstr, normal aujourd'hui c'est la PenteQuote . Jusqu’à présent j'utilisais commatext surtout dans le sens : j'ai une chaines contenant des séparateurs et je veux analyser chaque partie.
Cette fois j'ai un mémo avec un certain nombre de lignes et je veux obtenir une chaine avec chaque ligne entre quotes et séparée par une virgule.
Donc j'ai un Tmemo, un bouton et un label sur une forme, le mémo contient deux lignes
et je veux obtenirligne-1
ligne-2
il y a bien sur un moyen classique avec utilisation de boucle mais j'ai voulu faire sans et surprise'ligne-1','ligne-2'
si label1 et label2 sont conforme à mon attente , j'avais commencé par la formulation de label3 qui me fourni un double quote inexplicable
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 procedure TForm8.Button1Click(Sender: TObject); var Quote : String; begin Quote:=QuotedStr(','); Label1.Caption:=QuotedStr(Memo1.Lines.CommaText); Label1.Caption:=StringReplace(label1.Caption,',',Quote,[rfReplaceAll]); Label2.Caption:=StringReplace(QuotedStr(Memo1.Lines.CommaText),',',Quote,[rfReplaceAll]); Label3.Caption:=QuotedStr(StringReplace(Memo1.Lines.CommaText,',',Quote,[rfReplaceAll])); <<< le casse quote ! end;
une explication ?'ligne-1'',''ligne-2'
Partager