Einzelnen Beitrag anzeigen

Benutzerbild von runningsoft
runningsoft

Registriert seit: 8. Okt 2004
Ort: Bernau
108 Beiträge
 
Delphi 10.4 Sydney
 
#26

Re: Text in Dualzahlen umwandeln

  Alt 24. Mär 2010, 16:37
Hallo,

Du wandelst jetzt den Text aus Label1 und Label2 in Integerzahlen um (also der String '10324' wird zu 10324). Da kannst Du natürlich nicht mit der von Dir verwendeten Methode die beiden ersten zahlen addieren, dann die zweiten usw. Dazu müsstest Du die Variablen Text und Schlüssel als Strings definieren.

Folgender Code sollte funktionieren (ungetestet, hab grad kein Delphi zur Hand):

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

Var
b:integer;
schluessel,text : string;
begin
text:= Label1.caption; //in Label1.caption steht der in zahlen umgewandelte Text
schluessel:= Label2.caption;// in label2.caption steht der in zahlen umgewandelte schlüssel

for b:=1 to length(Label1.caption) do
    begin
    Label3.caption:= Label3.caption + (inttostr(strtoint(text[b]) + strtoint(schluessel[b]))); // in label3.caption soll der verschlüsselte Text
                                                                              // ausgegeben werden
     end;

end;

end;
Steffen
  Mit Zitat antworten Zitat