Re: String in Integer umwandeln?
du brauchst doch nur jedes zeichen deines string per for-schleife zudurchlaufen und mit ord() umzuwandeln
|
Re: String in Integer umwandeln?
Zitat:
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 |
Re: String in Integer umwandeln?
danke.
Ach edit... stimmt, daran hab ich gar nicht gedacht :/ |
Re: String in Integer umwandeln?
Hi
Weiß nicht ob das geht..
Code:
gruß Frank
var
a, b, c ....ect: integer; a:= 1 b:= 2 c:= 3 ........ |
Re: String in Integer umwandeln?
hm frank, das versteh ich nun nicht, erklär mal bitte was du vorhattest <g>
|
Re: String in Integer umwandeln?
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 |
Re: String in Integer umwandeln?
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; |
Re: String in Integer umwandeln?
@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; |
Re: String in Integer umwandeln?
oki danke,
weil beim copy, die erste position 0 ist war bei mir i oben 0. :love: jedenfalls danke vielmals :) |
Alle Zeitangaben in WEZ +1. Es ist jetzt 03:18 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz