Programowanie w języku Delphi

Ord

  • 2010-10-31 18:27
  • 5 komentarzy
  • 4934 odsłony
  • Oceń ten tekst jako pierwszy
Ord
Moduł: System

function Ord(X);

Funkcja ta działa odwrotnie do Chr. Z podanego znaku jako parametr zwraca nam jego kod w Ascii.

Przykład:

Ord('A'); // Zwraca 65
Ord('Z'); // Zwraca 90
Ord(' '); // Zwraca 32


Funkcja nie może operować na parametrach typu Int64

Zobacz też:

5 komentarzy

dzwonekn 2011-11-14 11:20

Słuchajcie drodzy mili. Nie moge sobie poradzic. Stworzyłem nastepujący kod:
procedure TForm1.Button70Click(Sender: TObject);
  var
  i : Integer;

       haslo : array[0..4] of Integer;
       slowo : string;
begin
 haslo[0] := Ord('A');
 haslo[1] := Ord( (AnsiMidStr('Admin', 2, 1)));
 haslo[2] := ord( AnsiMidStr('Admin', 3, 1) );
 haslo[3] := ord( AnsiMidStr('Admin', 4, 1) );
 haslo[4] := ord( AnsiMidStr('Admin', 5, 1) );

                         //klawiszach
    for i := Low(haslo) to High(haslo) do
  begin  slowo := slowo + chr(haslo[i]);   end;

     MessageDlg(slowo,TMsgDlgType.mtInformation,mbOKCancel,0);
end;
I o ile dla haslo[0] zwraca mi A o tyle dla pozostałych jakies krzaczki.
Wiem, ze na pewno problem tkwi w AnsiMidStr ale nie wiem jak go rozwiązać.
Bardzo proszę o pomoc.

Adik0160 2009-03-26 17:09

Bardzo przydatne.
Wyłącznie do prostego kodowania w Ascii.

flatplanet 2008-09-26 15:01

no to moze się podzielicie? chętnie się dowiem...

Coldpeer 2006-02-21 13:29

Marooned: jak to nic nie robią? Przydatne są :)

// edit: 23 sie 07: właśne na irc Marooned wytłumaczył :D

Marooned 2006-01-03 20:36

ord i chr to największa kpina pascala/delphi :D
funkcje, które nie robią NIC :D