String in Integer umwandeln?

[delphi_newbie_123]

Hallo,
ich versuche gerade einen kleinen Passwortschutz zu schreiben, und würde gerne wissen ob es irgendwie möglich ist einen
String in einen Zahlenwert zu verwandeln.
Gibts da eine bestimmte Funktion dazu?
Ich will einfach den Serialcode eines Harwareteils, das aus Zahlen und Buchstaben besteht in Zahlen umwandeln.
Ich würde einfach für jeden Buchstaben aus dem Alphabet eine bestimmte Zahl definieren.
zb A=1 B=2 usw..
ist das OK oder geht geschickter ? ;)
Danke fuer jeden Tipp

[ste_ett]

"StrToInt" bzw "Ord" und "Chr", je nachdem, was du genau meinst. :)

[delphi_newbie_123]

ach echt?
dann wird auch sowas wie 84nUbrn3875mhB IN eine Zahl umgewandelt?
danke versuch ich gleich mal

[delphi_newbie_123]

ne klappt so nicht ;)

[sakura]

Zitat:

Zitat von delphi_newbie_123

ne klappt so nicht ;)

Was soll dabei denn auch rauskommen :roll: Ansonsten suche mal, wir hatten dazu schon alles Mögliche.

...:cat:...

[delphi_newbie_123]

na nix, deswegen hab ich auch geschrieben..
such schon seit ein paar Stunden, also wenn du einen Link hast nur her damit ;) :love:

[sakura]

Zitat:

Zitat von delphi_newbie_123

na nix, deswegen hab ich auch geschrieben..

Was ist nix? Es gibt keinen Integerwert "nix". Drücke Dich bitte klar aus ;-)

...:cat:...

[freak4fun]

Du könntest den String untersuchen.
Zähle von Anfang bis Ende von String
Wenn an der Stelle eine Zahl (0-9) dann lass es sein
Sonst wandle in eine Zahl um. (Ord glaub ich)

Wenn man Ord von einer Zahl macht bekommt man glaub ich auch eine Zahl
Hm... sag vielleicht erstmal noch was du machen willst. Klingt nach Quersumme oder sowas. :gruebel:

PS: Ich bin genauso verwirrt wie mein Kommentar. :mrgreen:

mfg
freak

[delphi_newbie_123]

nix wäre nach meinen berechnungen 14=n 9=i x=23
also 14923 :P
klargenug ?

[delphi_newbie_123]

ich lese eine Hardwareserial von der Festplatte aus.
Diese besteht aus Zahlen wie auch Buchstaben.
Nun möchte ich mit der Serial rechnen.
Dazu muss ich eine reine Zahl haben.
Aber ohne Die buchstaben einfach rauszufiltern, dann ist es langweilig

[Pseudemys Nelsoni]

du brauchst doch nur jedes zeichen deines string per for-schleife zudurchlaufen und mit ord() umzuwandeln

[alcaeus]

Zitat:

Zitat von delphi_newbie_123

ich lese eine Hardwareserial von der Festplatte aus.
Diese besteht aus Zahlen wie auch Buchstaben.
Nun möchte ich mit der Serial rechnen.
Dazu muss ich eine reine Zahl haben.
Aber ohne Die buchstaben einfach rauszufiltern, dann ist es langweilig

:roll: Wenn es langweilig ist, dann mach es einfach nicht.
Du könntest z.B. mit StringReplace alle Buchstaben in Zahlen umwandeln. Oder du könntest von jedem Zeichen den ASCII-Wert nehmen, dann hast du auch keine Buchstaben mehr.
Und außerdem gibt es eine Editfunktion, dann musst du auch nicht nach 2 Minuten pushen :roll:

Greetz
alcaeus

[delphi_newbie_123]

danke.
Ach edit...
stimmt, daran hab ich gar nicht gedacht :/

[Computerbabalulu]

Hi

Weiß nicht ob das geht..

Code:

 var
  a, b, c ....ect: integer;

 a:= 1
 b:= 2
 c:= 3
  ........

gruß Frank

[Pseudemys Nelsoni]

hm frank, das versteh ich nun nicht, erklär mal bitte was du vorhattest <g>

[Computerbabalulu]

Hi Mario,

:shock: :shock: :shock: :oops: :oops:

Oh... bin noch nicht wach :stupid: (sch.. Nachtschicht)

Keine Ahnug was ich da gepostet habe. :drunken: :drunken:

Sorry, trink mir erst mal einen Kaffee :wall:

liebe Grüße Frank

[delphi_newbie_123]

so kleines Problemchen mit der copy funktion.
Es wird wohl angenommen, dass ich keinen char sondern einen string kopiere.
gibts hier eine andere funktion, die nur einen bestimmten char auf einer bestimmten stelle speichert?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
s:char;
begin
edit1.text:=GetHddSerial;

for i:=0 to length(GetHddSerial)-1
do begin
if strtoint(copy(GetHddSerial,i,1))>=0 then
begin
   edit2.text:=edit2.text+(copy(GetHddSerial,i,1));
end
else
begin
s:=(copy(GetHddSerial,i,1)); //fehler in dieser zeile
edit2.text:=edit2.text+inttostr(ord(s));
end;



end;

end;

[Pseudemys Nelsoni]

@Frank: passiert jedem mal :mrgreen: :thumb:

@delphi_newbie_123

machs mal so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var 
  i: integer; 
  s: string;
begin 
  s := GetHddSerial; 
  for i := 1 to length(s) do // string beginnt bei 1 nicht 0!
    Edit1.Text := Edit1.Text + IntToStr(Ord(s[i]));
end;

[delphi_newbie_123]

oki danke,
weil beim copy, die erste position 0 ist war bei mir i oben 0.
:love: jedenfalls danke vielmals :)