CONVERTISSEUR DÉCIMAL -> BINAIRE
fabiin
Messages postés
329
Date d'inscription
mercredi 4 avril 2001
Statut
Membre
Dernière intervention
8 décembre 2009
-
24 janv. 2002 à 21:03
g0belin Messages postés 155 Date d'inscription jeudi 6 décembre 2001 Statut Membre Dernière intervention 19 avril 2010 - 31 janv. 2002 à 19:56
g0belin Messages postés 155 Date d'inscription jeudi 6 décembre 2001 Statut Membre Dernière intervention 19 avril 2010 - 31 janv. 2002 à 19:56
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/11750-convertisseur-decimal-gt-binaire
https://codes-sources.commentcamarche.net/source/11750-convertisseur-decimal-gt-binaire
31 janv. 2002 à 19:56
---------------
Code plus court:
- J'ai pu fair en sorte de n'ajouter aucun caractere a se qu'il y avait, mais j'ai enlever l'a procedure d'invertion.... (je ne dit pas qu'elle est mauvaise !!! ;-))
+++
25 janv. 2002 à 12:41
25 janv. 2002 à 12:24
merci pour ta correction mais en fait je n'en avais pas vraiment besoin car la source je l'avais mais j'ai eu un probleme au moment de la metre (y avais une partie sur la disquette)
Voila@+
25 janv. 2002 à 11:55
Voici la correction :
procedure TForm1.Button1Click(Sender: TObject);
var reste,nbr, temp :integer;
resultat :string;
begin
resultat := '';
nbr:=StrToInt(edit1.text);
repeat
temp := nbr div 2;
reste := nbr - (temp*2);
resultat := resultat + inttostr(reste);
nbr := temp;
until nbr = 0;
edit2.Text := InverseStr(resultat);
end;
Et ajoute cette fonction :
Function inverseStr(Str:string):string;
var L,i : integer;
s : string;
begin
s := '';
L := Length(Str);
Repeat
s := s + Str[L];
L := L-1;
until L=0;
result := s;
end;
DelphiCool
www.progzed.com
progzed.com/forum
25 janv. 2002 à 10:02
@+
24 janv. 2002 à 21:03
il recherche unit1.pas sur la disquette
et y'a une erreur dans le code à nbr div 2;