Thema: Delphi array-typ erfoderlich

Einzelnen Beitrag anzeigen

Matrix Scripter

Registriert seit: 20. Apr 2005
Ort: Freiburg
37 Beiträge
 
#4

Re: array-typ erfoderlich

  Alt 20. Apr 2005, 15:16
hier ist die funktion:
Delphi-Quellcode:
function CharToInt(inp: string): integer;
var ch: array[0..92] of char;
i: integer;
begin
  ch[0] := '0';
  ch[1] := '1';
  ch[2] := '2';
  ch[3] := '3';
  ch[4] := '4';
  ch[5] := '4';
  ch[6] := '6';
  ch[7] := '7';
  ch[8] := '8';
  ch[9] := '9';
  ch[10] := 'a';
  ch[11] := 'b';
  ch[12] := 'c';
  ch[13] := 'd';
  ch[14] := 'e';
  ch[15] := 'f';
  ch[16] := 'g';
  ch[17] := 'h';
  ch[18] := 'i';
  ch[19] := 'j';
  ch[20] := 'k';
  ch[21] := 'l';
  ch[22] := 'm';
  ch[23] := 'n';
  ch[24] := 'o';
  ch[25] := 'p';
  ch[26] := 'q';
  ch[27] := 'r';
  ch[28] := 's';
  ch[29] := 't';
  ch[30] := 'u';
  ch[31] := 'v';
  ch[32] := 'w';
  ch[33] := 'x';
  ch[34] := 'y';
  ch[35] := 'z';
  ch[36] := 'A';
  ch[37] := 'B';
  ch[38] := 'C';
  ch[39] := 'D';
  ch[40] := 'E';
  ch[41] := 'F';
  ch[42] := 'G';
  ch[43] := 'H';
  ch[44] := 'I';
  ch[45] := 'J';
  ch[46] := 'K';
  ch[47] := 'L';
  ch[48] := 'M';
  ch[49] := 'N';
  ch[50] := 'O';
  ch[51] := 'P';
  ch[52] := 'Q';
  ch[53] := 'R';
  ch[54] := 'S';
  ch[55] := 'T';
  ch[56] := 'U';
  ch[57] := 'V';
  ch[58] := 'W';
  ch[59] := 'X';
  ch[60] := 'Y';
  ch[61] := 'Z';
  ch[62] := '!';
  ch[63] := '"';
  ch[64] := '§';
  ch[65] := '$';
  ch[66] := '%';
  ch[67] := '&';
  ch[68] := '/';
  ch[69] := '(';
  ch[70]:= ')';
  ch[71] := '=';
  ch[72] := '?';
  ch[73] := '\';
  ch[74] := '+';
  ch[75] := '*';
  ch[76] := '#';
  ch[77] := '-';
  ch[78] := '_';
  ch[79] := '.';
  ch[80] := ':';
  ch[81] := ',';
  ch[82] := ';';
  ch[83] := '²';
  ch[84] := '³';
  ch[85] := '{';
  ch[86] := '}';
  ch[87] := '[';
  ch[88] := ']';
  ch[89] := '<';
  ch[90] := '>';
  ch[91] := '|';
  ch[92] := ' ';
  for i := 0 to 92 do
  begin
    if inp = ch[i] then
    begin
     result := i;
     break;
     end;
  end;
end;
bitte nicht schipfen, bin doch ein anfänger

mfG Matrix Scripter

[edit=Sharky]Delphi-Tags gesetzt. Mfg, Sharky[/edit]
was ist verzweiflung?
  Mit Zitat antworten Zitat