shell1301073
Messages postés mardi 3 avril 2007Date d'inscription
12 mai 2013
Dernière intervention
-
6 avril 2009 à 16:13 - Dernière réponse : f0xi4304
Messages postés samedi 16 octobre 2004Date d'inscription
9 mars 2018
Dernière intervention
- 7 avril 2009 à 03:51
je me trouve fasse a un probleme que j'arrive pas a resoudre
j'ai un listbox et je voudrais que quand une personne click sur une
items me renvoie le string en decimal voici mon code qui renvoie la
premiere items mais j'arrive pas a renvoyer nimporte quel item
procedure TForm4.ListBox1Click(Sender: TObject);
var S:string;
I:integer;
Conv:string;
begin
S:=ListBox1.Items.Strings[0]; //va me renvoyer l'items 0 //ici et mon probleme
for i:=1 to length(s) do Conv:=Conv+inttostr(ord(s[i]))+',';
edit2.text:=(Conv); //me renvoie le mot en decimal
showmessage(Choix(ListBox1));
end;
comment je pourrais enlever le 0 pour que l'item 2 ou 3 etc... peut etre convertie?
function RenvoiDec: string;
var
S: string;
i, j: integer;
Conv: string;
begin
with Form1 do
for i := 0 to ListBox1.Items.Count - 1 do
if ListBox1.Selected[i] then
begin
S := ListBox1.Items.Strings[i];
for j := 1 to length(S) do
Conv := Conv + IntToStr(ord(S[j])) + ',';
Result := Conv;
end;
end;
procedure TForm1.ListBox1Click(Sender: TObject);
begin
Edit1.Text := RenvoiDec;
end;
cantador
Cette réponse vous a-t-elle aidé ?Merci pour votre retour.
N'oubliez pas de prendre quelques secondes pour remercier l'auteur : Merci pour votre retour.
Nous sommes désolés. Notre objectif est de vous donner la meilleure réponse possible.
bon voila se que j'ai fait pour se a qui sa intéresserer plutard, mais je pense pas que se soit la methode douce mais sa marche donc si vous avez une autre idée je suis preneur...
procedure TForm4.ListBox1Click(Sender: TObject);
var S:string;
I:integer;
a:integer;
Conv:string;
begin
for I := 0 to ListBox1.Items.Count - 1 do
if ListBox1.Selected[I] then
S:= ListBox1.Items.Strings[i];
for a:=1 to length(s) do Conv:=Conv+inttostr(ord(s[a]))+',';
edit2.text:=(Conv);
showmessage(choix(listbox1));
end;
A+
Cette réponse vous a-t-elle aidé ?Merci pour votre retour.
N'oubliez pas de prendre quelques secondes pour remercier l'auteur : Merci pour votre retour.
Nous sommes désolés. Notre objectif est de vous donner la meilleure réponse possible.
procedure TForm1.FormCreate(Sender: TObject);
var A : char;
B : byte absolute A;
begin
for A := #0 to #255 do
CharToCode[A] := IntToStr(B);
end;
procedure TForm1.ListBox1Click(Sender: TObject);
var S,E : string;
I,L : integer;
begin
S := ListBox1.Items[ListBox1.itemindex];
E := '';
L := Length(S);
for I := 1 to L do
if I < L then
E := E + CharToCode[S[I]] + ', '
else
E := E + CharToCode[S[I]];
Edit1.Text := E;
end;
end.
Cette réponse vous a-t-elle aidé ?Merci pour votre retour.
N'oubliez pas de prendre quelques secondes pour remercier l'auteur : Merci pour votre retour.
Nous sommes désolés. Notre objectif est de vous donner la meilleure réponse possible.
Ah si ok j'ai compris ce que tu entends par "le string en decimal", bein dans l'evenement OnClick de ta ListBox si tu mets :
S:=ListBox1.Items[ListBox1.ItemIndex];
s sera égal à l'item selectionné (si selection il y a).
