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]