listbox vers editRésolu

Question

salut

je voudrai savoir comment extraire d'une listbox une ligne somme suit :

111111,222222  -----> la ligne de ma listbox

et mettre 111111 dans un edit1.text
et
mettre 22222 dans un autre edit2.text

merci

ni69 · Accepted Answer

Tu peux faire comme &#231;a :



procedure Separe;

var


 i, numligne : integer;


 texteligne : string;

begin

  texteligne :=   ListBox1.Items[numligne];  // numligne est ici le num&#233;ro de la ligne de la listbox (premi&#232;re ligne=0) 

  i : = Pos(',' , texteligne);

  Edit1.Text := Copy(texteligne, 1, Pred(i));

  Edit2.Text := Copy(texteligne, Succ(i), Length(texteligne));

 end; 

@+
Bonne Prog'
Nico [www.ni69.new.fr]
<hr size ="2" width="100%">




N'oubliez pas de cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient !

burnouze · Answer

ca marche nikel
var
 i, numligne : integer;
 texteligne : string;
begin  texteligne :listbox1.items [listbox1.ItemIndex ]; // numligne est ici le num&#233;ro de la ligne de la listbox (premi&#232;re ligne0)
  i := Pos(',' , texteligne);
  Edit1.Text := Copy(texteligne, 1, Pred(i));
  Edit2.Text := Copy(texteligne, Succ(i), Length(texteligne));

ni69 · Answer

J'ai utilis&#233; la variable numligne dans le cas o&#249; tu aurais &#224;
effectuer ce traitement sur une ligne pr&#233;cise ou sur toutes les lignes,
et non pas sur la ligne s&#233;lectionn&#233;e...

@+
Bonne Prog'
Nico [www.ni69.new.fr]
 


 
N'oubliez pas de cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient !

burnouze · Answer

merci  c sympat de repondre aussi vite

Listbox vers edit

4 réponses

Votre réponse

Discussions similaires