String in Integer umwandeln?

[Pseudemys Nelsoni]

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

[alcaeus]

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

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

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,



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

Keine Ahnug was ich da gepostet habe.

Sorry, trink mir erst mal einen Kaffee

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

@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.
jedenfalls danke vielmals