Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Probleme mit ord() -Funktion (https://www.delphipraxis.net/58502-probleme-mit-ord-funktion.html)

-lx- 7. Dez 2005 22:23


Probleme mit ord() -Funktion
 
Hallo.

Also ich möchte ein Zeichen (A,b,/,?, oder was auch immer) in den dafür zugehörigen ASCII Code (also die korospondierende Zahl) umwandel.

Delphi-Quellcode:
procedure TForm1.BButtonClick(Sender: TObject);
  var Start, Ende, I: Integer ;

begin
   Start:= ord(EStart.Text) ;
end;
Jedoch so wie es da steht, geht es nicht. Delphi (7) sagt ständig, dass es sich um "Inkopatible Typen" handelt.

Ich versteh nur nicht wo der fehler liegt. ord() wwandelt doch ein Zeichen in die korospondierende Zahl um und diese ist doch ein IntegerWert... also müsste doch eine Typumwandlung nicht mehr erfolgen.



Hoffe mir kann wer helfen bzw. erklären, worauf es dabei ankommt.





Mit freundlichen grüüßen

-lx-

Luckie 7. Dez 2005 22:29

Re: Probleme mit ord() -Funktion
 
Das wird daran liegen, dass die Eigenschaft Text einen String zurückliefert, Ord aber als Argument einen Char erwartet. So gehts:
Delphi-Quellcode:
ShowMessage(IntToStr(Ord(Edit1.Text[1])));

-lx- 8. Dez 2005 21:16

Re: Probleme mit ord() -Funktion
 
Hallo!

Danke erstmal für die Antwort.

Also man kann mit der funktion ord() nur einen Wert von dem typ char "auslesen" bzw. verarbeiten, oder?

So... nun habe ich es so gemacht, dass von dem String "EStart.Text" das 1. Zeichen verwendet wird. Also "EStart.Text[1]". Dieses Zeichen wird dann durch ord() in die Zahl umgewanfdelt, die ja ein Interger Wert ist, stimmts?

So... also kann ich quasi durch "EStart.text[2]" oder "EStart.Text[14]" aus eienm String eine bestimmte Stelle "herausholen" und in eien Char Typ umwandeln lassen?




mfg
Cya

Airblader 8. Dez 2005 21:18

Re: Probleme mit ord() -Funktion
 
Richtig.

Dass du einen Char angeben musst, ist ja auch logisch, oder hat "blafoo" neuerdings einen extra ASCII-Code? ;)

air


Alle Zeitangaben in WEZ +1. Es ist jetzt 07:06 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