Thema: Delphi bin2dec

Einzelnen Beitrag anzeigen

Daniel B
(Gast)

n/a Beiträge
 
#4
  Alt 5. Apr 2003, 18:36
Also, mit Zwischenvariablen und in jeder Zeile wird was umgewandelt.
Das ist ja mal eine Herrausforderung, schriebe etwas so umständlich wie möglich. //Hmm, gar nciht so einfach

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
  sEdit, sErgebnis: String;
  iEdit: Integer;
  bEdit: Byte;
begin
  sEdit := Edit1.Text; //Text aus dem Edit, also Bits einer Variable zuweisen
  iEdit := StrToInt(sEdit); //Dann die Variable in einen Integer umwandeln da der Edit es als String hat
  bEdit := Byte(iEdit); //Dann den Integer in ein Byte umwandeln
  sErgebnis := IntToStr(bEdit); //Den Wert des Bytes wieder in einen String umwandeln
  ShowMessage(sErgebnis); //Und schliesslich das Ergebniss in einer Message ausgeben
end;
Besser?

Grüsse, Daniel
  Mit Zitat antworten Zitat