Aide TEdit entrer plusieurs valeurs [Résolu]
dioufthier
Membre Dernière intervention
20 juin 2012
- - Dernière réponse :
dioufthier
Membre Dernière intervention
20 juin 2012
- 23 mai 2011 à 12:48
- Messages postés
- 16
- Date d'inscription
- samedi 19 juillet 2008
- Statut
- Messages postés
- 16
- Date d'inscription
- samedi 19 juillet 2008
- Statut
A voir également:
- Aide tedit entrer plusieurs valeurs
- Pre-formate un textbox avec un texte déterminé pour entrer une valeur à la suite de ce texte - Codes sources - Visual Basic / VB.NET (Control)
- Entrer des valeur a un String Grid ✓ - Forum - C++ & C++ .NET
- Entrer des valeurs différentes dans une colonne ✓ - Forum - SQL
- Entrer la valeur d'une cellule dans une variable. ✓ - Forum - VB.NET
- Entrer les valeurs de la deuxieme colone d'une combobox ✓ - Forum - VB.NET
10 réponses
Meilleure réponse
- Messages postés
- 693
- Date d'inscription
- jeudi 17 avril 2008
- Statut
si je comprends bien tu as :
edit1.text := '1,2,3,4,5';
tu veux récupérer chaque valeur
donc :
edit2.text := mot(edit1.txt,1);
edit3.text := mot(edit1.txt,2);
edit4.text := mot(edit1.txt,3);
edit52.text := mot(edit1.txt,4);
Il faut juste changer dans la function MOT ces lignes : (si tu utilises la mienne !) :
m := pos(' ',h); en m := pos(',',h);
puisque ton séparateur est une virgule dans don exemple
PS : (pour les "pros") je n'ai pas utilisé posex qui simplifierais beaucoup cette procédure car il n'est pas compatible avec toutes les versions de Delphi
Dubois77
edit1.text := '1,2,3,4,5';
tu veux récupérer chaque valeur
donc :
edit2.text := mot(edit1.txt,1);
edit3.text := mot(edit1.txt,2);
edit4.text := mot(edit1.txt,3);
edit52.text := mot(edit1.txt,4);
Il faut juste changer dans la function MOT ces lignes : (si tu utilises la mienne !) :
m := pos(' ',h); en m := pos(',',h);
puisque ton séparateur est une virgule dans don exemple
PS : (pour les "pros") je n'ai pas utilisé posex qui simplifierais beaucoup cette procédure car il n'est pas compatible avec toutes les versions de Delphi
Dubois77
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
145 internautes nous ont dit merci ce mois-ci
- Messages postés
- 2233
- Date d'inscription
- mardi 10 décembre 2002
- Statut
Salut,
fait une recherche sur les sous-chaines.
Tu peux aussi utiliser mon unité "cyStrUtils.pas" inclue dans ce pack de compos ici:
Composants Cindy pour Delphi
Les focntions concernant les sous-chaines commencent par SubString ...
A+
fait une recherche sur les sous-chaines.
Tu peux aussi utiliser mon unité "cyStrUtils.pas" inclue dans ce pack de compos ici:
Composants Cindy pour Delphi
Les focntions concernant les sous-chaines commencent par SubString ...
A+
- Messages postés
- 16
- Date d'inscription
- samedi 19 juillet 2008
- Statut
- Messages postés
- 2233
- Date d'inscription
- mardi 10 décembre 2002
- Statut
Dans le répertoire "cyComponents\Core"
A+
Composants Cindy pour Delphi
A+
Composants Cindy pour Delphi
- Messages postés
- 16
- Date d'inscription
- samedi 19 juillet 2008
- Statut
- Messages postés
- 693
- Date d'inscription
- jeudi 17 avril 2008
- Statut
Esaye cette petite procédure
Dubois77
function MOT(h:string; n:integer=1):variant;
// si n=1, peut être omis :
// soit z = '5 toto 6 papa'
//nbre := mot(Z); renvoie 5 dans l'integer nbre;
//chaine := mot(z,2) renvoie 'toto' dans le string chaine
var m,i,l:integer;
begin
m := pos(' ',h);
if m=0 then
begin
result := h;
exit
end;
if n=1 // premier mot
then begin
result := copy(h,1,m-1);
exit
end;
l := length(h);
for i:=1 to n-1 do
begin
m := pos(' ',h);
if m=0 then
begin
result := '';
exit;
end;
h := trim(copy(h,m,l)); // on enlève le mot i
end;
m := pos(' ',h);
if m=0
then result := h
else result := copy(h,1,m);
end;
Dubois77
- Messages postés
- 260
- Date d'inscription
- lundi 27 octobre 2003
- Statut
Salut,
@dubois77
Je pense que ta fonction peut-être remplacé simplement comme ceci (pas testé)
@Dioufthier
Que cherche tu as faire exactement remplacer une chaine '5 toto 6 papa' par '5,toto,6,papa'
(J'utilise ton exemple dubois77,il me plait bien )
alors utilise StringReplace exemple
ou séparer '5,toto,6,papa' alors utilise les TStringList
Un exemple tout bête avec un bouton et un memo (pas testé)
J'espère t'avoir aidé
@+yanb
@dubois77
Je pense que ta fonction peut-être remplacé simplement comme ceci (pas testé)
function Mot(h:string; n:integer=1):variant;
var
T : TStringList;
begin
T := TStringList.Create;
try
T.Delimiter := ' ';
T.DelimitedText := h;
if (T.Count <> -1) and (n <= T.Count) then
Result := T.Strings[n-1]
else
Result := Format('Pas de mot en position %d',[n]);
finally
T.Free;
end;
end;
@Dioufthier
Que cherche tu as faire exactement remplacer une chaine '5 toto 6 papa' par '5,toto,6,papa'
(J'utilise ton exemple dubois77,il me plait bien )
alors utilise StringReplace exemple
Edit1.Text := StringReplace('5 toto 6 papa',' ',',',[rfReplaceAll]);
ou séparer '5,toto,6,papa' alors utilise les TStringList
Un exemple tout bête avec un bouton et un memo (pas testé)
procedure SepEdit(S: string; List: TStrings);
var
T : TStringList;
begin
T := TStringList.Create; //Création TStringList
try
T.Delimiter := ','; //Pas utile par défaut c'est déjà ','
T.DelimitedText := S; //Séparation du texte
List.Clear; //Efface le contenu précédent
List.AddStrings(T); //Mise en place du trie dans le TStrings ici Memo1.Lines
finally
T.Free; // Libération TStringList
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
SepEdit('5,toto,6,papa',Memo1.Lines);
end;
J'espère t'avoir aidé
@+yanb
- Messages postés
- 16
- Date d'inscription
- samedi 19 juillet 2008
- Statut
- Messages postés
- 16
- Date d'inscription
- samedi 19 juillet 2008
- Statut
- Messages postés
- 16
- Date d'inscription
- samedi 19 juillet 2008
- Statut