Einzelnen Beitrag anzeigen

countdown

Registriert seit: 23. Mär 2010
10 Beiträge
 
#28

Re: Text in Dualzahlen umwandeln

  Alt 24. Mär 2010, 17:15
ich habe aber jetzt erstmal ein anderes Problem gelöst:
wenn ich das berücksichtig habe was ihr mir geraten habt war die Summe der Zahlen immer länger als der text bzw der schlüssel, da 9+5= 14 und dann auch 14 ausgegeben wurde.
Deshalb habe ich nun eine if-schleife eingebaut die verhindert dass zahlen >9 ausgegeben werden.wenn eine Zahl größer 9 ist wird sie minus 10 gerechnet und dann ausgegeben:

Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);

Var
schluessel,text:string;
b,zwischenwert:integer;
begin
text:= Label1.caption;
schluessel:=Label2.caption;

for b:=1 to length(Label1.caption) do
    begin
    zwischenwert:= ( StrToInt(text[b]) + StrToInt(schluessel[b]));
    if zwischenwert > 9
    then zwischenwert:= zwischenwert -10;
    label3.caption:= label3.caption + inttostr(zwischenwert);
     end;

 end;
für die entschlüsselung wird dann der verschlüsselte text minus den schlüssel genommen und sollte das ergebnis dann <0 sein wird +10 gerechnet so dürfte ich doch dann wieder auf meinen ausgangstext kommen oder?
  Mit Zitat antworten Zitat