Umrechnen Bin-Dez / Dez-Bin ohne shr oder shl

[rawsoul]

In der DSDT Library gibt es ein gutes rekursives Beispiel. Wandelt Dezimalzahlen in ein beliebiges Zahlensystem zur Basis X um

[grenzgaenger]

der start des threads ist zwar schon eine weile her, aber wollte noch kurz 'ne kleine anmerkung machen... in TP5.5 sind die befehle SHR und SHL bekannt .

[DeddyH]

@grenzgaenger: siehe Titel des Threads

[Poldy]

also irgendwie funktioniert das bei mir immer noch nicht
er erkennt nach wie vor meine variable integer nicht und auch das andere haut noch nicht so wirklich hin

[delphi]
type TFormBla = class(TForm)
private
function TFormBla.IntToBin (Sender: TObject);


implementation

var a: Integer;
var b: string ;

begin

a:= strToInt (Edit1.text);
b:='';

while (a>0) do
begin
b:= IntToString (a mod 2) +b
a:= a div 2;
end
Edit2.text = b;
end;

wie kann ich hier eigentlich meinen quellcode reinpacken so das man auch die fehler sieht die er mir anzeigt?

[inherited]

Garnicht, aber du könntest sie einfach hierher kopieren

Du schreibst 2 mal "var", darfst das aber nur einmal tun! Also

Delphi-Quellcode:

var a: Integer;
  b: String;

Und a und b sind denkbar schlechte Variablennamen, da erkennt man nachher nichtmehr wozu sie eigentlich gut sind!
Nenne sie wenigstens entsprechend ihres Types, also zB "i" und "s", besser noch nach ihrer Funktion im Code!

[Poldy]

das ich den kopiere ist mir schon klar sieht dann aber so aus wie bei mir oben....

aber eine entscheidene sache habe ich in deinem schon gesehen.. da erkennt er die variable b ja auch nicht als integer... warum zum teufel nicht?

[inherited]

Häng mal dein komplettes Projekt an, also .pas, .dfm und .dpr

[grenzgaenger]

hallo deddy,

fast stimmt der titel, nur die begründung weshalb SHL oder SHR im titel steht... war etwas voreilig. und darauf bezog sich mein kommentar.

dir noch 'n schönen abend.