Traitement Text

Question

Bonjour tous le monde

je cherche la méthode pour copier apartir une chaîne de caractères ayant comme séparateur une virgule  (saisie dans un edit) puis mettre chaque sous chaine entre les virgules dans une liste de String.


Merci pour vos réponse.

j'ai beau cherché sur le site mais apparemment j'ai pas réussi à le trouver SOS!!!

Yanb · Answer

Salut,
Avec TStringList et il y a beaucoup d'exemple sinon voir l'aide F1...!
Un exemple rapide en live : 1 TButton, 1 TEdit, 1 TMemoprocedure TForm1.Button1Click(Sender: TObject);
var
  ListString : TStringList;
  S : string;
begin
  ListString := TStringList.Create;
  try
    Edit1.Text := 'Text1,Text2,Text3';
    ListString.Delimiter := ',';
    S := Edit1.Text;
    ListString.DelimitedText := S;
    Memo1.Clear;
    Memo1.Lines.AddStrings(ListString);
  finally
    ListString.Free;
  end;
end;@+

ARBOUIZ · Answer

Bonsoir

Merci pour votre réponse Yanb.
en effet j'ai 2 edit dans mon projet qui contient une formule type de "1 f(g(x),y,a,k(w))" le but du projet s'est de faire un opération d'unification des 2 formules en appliquant les 4 règles.
pour ceci je veux avoir chaque paramètre dans un tableau pour les comparer 1 à 1.

Traitement Text

2 réponses

Votre réponse

Discussions similaires