Danke für die Tipps, wäre auch mal nett sowas von seinem Lehrer zu erfahren.
Ich habe versucht das untenstehende umzusetzen, leider funktioniert absolut gar nichts.
Bevor der Quellcode kommt: Von meinem Lehrer ist leider absolut gar keine Hilfe zu erwarten.
Weiterhin habe ich noch versucht mit einer
case of Struktur zu arbeiten, hat auch nicht funktioniert.
Code:
procedure TForm1.BBerechnen2Click(Sender: TObject);
var
i: integer;
Position, Ergebnis: cardinal;
begin
Position:= 1;
Ergebnis:= 0;
for i:= length(EOct.Text) downto 1 do begin
if EOct.Text[i]='0' then
Ergebnis:= Ergebnis +Position;
Position:= Position * 8;
if EOct.Text[i]='1' then
Ergebnis:= Ergebnis +Position;
Position:= Position * 8;
if EOct.Text[i]='2' then
Ergebnis:= Ergebnis +Position;
Position:= Position * 8;
if EOct.Text[i]='3' then
Ergebnis:= Ergebnis +Position;
Position:= Position * 8;
if EOct.Text[i]='4' then
Ergebnis:= Ergebnis +Position;
Position:= Position * 8;
if EOct.Text[i]='5' then
Ergebnis:= Ergebnis +Position;
Position:= Position * 8;
if EOct.Text[i]='6' then
Ergebnis:= Ergebnis +Position;
Position:= Position * 8;
if EOct.Text[i]='7' then
Ergebnis:= Ergebnis +Position;
Position:= Position * 8;
end;
EDez.text := inttostr(Ergebnis);
end;
Zitat:
PS: ist Delphi 5 das, was die Schule besitzt? Weil das ja eigentlich schon
recht alt ist und Schullizenzen gar nicht so teuer sind...
Unsere Schule hat noch Delphi 10, jedoch ist es wohl nicht nötig mit einem aktuellen Compiler zu arbeiten.
Danke noch mal an alle Antwortgebenden.
