wie in einem früheren Beitrag schon mal erwähnt, bin ich nun nicht so die Programmierleuchte... es ist sicher kein großes Problem aber ich brüte schon seit einigen Stunden daran... Es geht darum einen Algorithmus zu schreiben, der eine Dezimalzahl in eine Binärzahl umwandelt... Eigentlich kein Ding... und wenn ich das ganze in den laufenden Quelltext einschreibe, dann funktioniert das auch... ich will das ganze allerdings in eine Funktion einbauen und daran haperts... hier mal der Quelltext:

unsigned char DecToBin (unsigned char Data)
{
  unsigned char ausgabe[9];
  int zahl, i, tmp;
        i = 0;
        zahl = StrToInt(Data);

        while (zahl > 0)
        {
                tmp = zahl % 2;
                zahl = zahl / 2;
                ausgabe[i] = tmp + '0';
                i++;
        }
        ausgabe[i] = 0;
        return ausgabe[i];
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
unsigned char x;
x = DecToBin(128);
Label1->Caption = x;
}

...daß das ganze Seitenverkehrt ist, ist erstmal nicht so schlimm... der Wert 128 ist nur ein Festwert zum testen... woran kanns liegen, daß das nicht funzt?

Danke schon mal im Voraus!

MfG, Waldguru

unsigned char ist ein einzelnes Zeichen. Ich nehme mal an du willst eine Zeichenkette übergeben und zurückgeben. Mach doch gleich alles mit AnsiString.

AnsiString DecToBin (unsigned char Data)
{
  AnsiString ausgabe[8];
  int zahl, i, tmp;
        i = 0;
        zahl = StrToInt(Data);

        while (zahl > 0)
        {
                tmp = zahl % 2;
                zahl = zahl / 2;
                ausgabe[i] = tmp + '0';
                i++;
        }
        ausgabe[i] = 0;
        return ausgabe[i];
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
Label1->Caption = DecToBin(128);
}

vielleicht kann mir ja wer eine bessere funktionierende Lösung oder zumindest die Fehler in meinem Quelltext offenbaren?

MfG, Waldguru

Ich hab mal nur die Stellen die den AnsiString betreffen geändert. Hab gerade keinen BCB hier, bin daheim.

Ich mußte zwar noch ein paar kleine Änderungen bezüglich der Additionen der Nullen vornehmen, aber folgender Quelltext weist etwas funktionierendes auf, das mir dezimalzahlen in binärzahlen umwandelt (wenn auch verdreht...)

AnsiString DecToBin (unsigned char Data)
{
  AnsiString ausgabe;
  int zahl, i, tmp;
        i = 0;
        zahl = StrToInt(Data);

        while (zahl > 0)
        {
                tmp = zahl % 2;
                zahl = zahl / 2;
                ausgabe = ausgabe + AnsiString(tmp);
                i++;
        }
           return ausgabe;
}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   Label1->Caption = DecToBin(128);
}

Vielen Dank, das war mir echt 'ne große Hilfe... also weiter gehts

MfG, Waldguru