array-typ erfoderlich

[Matrix Scripter]

Hi, Leute!
Das ist mein problem:
num := CharToInt(atxt[i]) + CharToInt(schzae[si]) mod 92;
Hier bringt Delphi immer die Fehlermeldung:
Array-Typ erforderlich
CharToInt wechselt einen Buchstaben in ein Zahlum(A=1, B=2....)
IntToChar macht das gegenteil
atxt und schzae sind als string deklariert
mit atxt[1] kann man doch auf den ersten Buchstaben des strings atxt zugreifen oder nicht?
--------
wo ich schonmal hier bin: wie schaltet man in Delphi 7 exceptions aus?
--------

mfG Matrix Scripter

[alcaeus]

Hallo Matrix scripter,

zeig doch bitte mal die Deklaration von CharToInt. Wahrscheinlich liegt der Haken da.

Zitat von Matrix Scripter:

wo ich schonmal hier bin: wie schaltet man in Delphi 7 exceptions aus?

In den Debuggeroptionen (Tools->Debuggeroptionen)

Greetz
alcaeus

[Khabarakh]

[hups]

[Matrix Scripter]

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]

[TeronG]

Zitat von Matrix Scripter:

bitte nicht schipfen, bin doch ein anfänger

wir doch nicht .. NUR änder doch mal nachträglich deinen Post und mach

Code:

 [delphi] [/delphi]

um deine Codes. macht die sache einfacher/leserlicher.

[alcaeus]

Erstens solltest du die [.delphi]-Tags verwenden (ohne .)

Aendere diese Zeile function CharToInt(inp: string): integer; mal in function CharToInt(inp: Char): integer; um. Nachdem deine Funktion CharToInt heisst, sollte sie auch nur einen Char akzeptieren. Ansonsten seh ich im Moment keinen Fehler

Greetz
alcaeus

[maximov]

Das array musst du nicht jedesmal neu bauen. Du kannst es auch statisch deklarieren:

Delphi-Quellcode:

const
  ch: array[0..92] of char = ('0','1','2'...etc);

[Binärbaum]

Zitat von maximov:

Das array musst du nicht jedesmal neu bauen. Du kannst es auch statisch deklarieren:

Delphi-Quellcode:

const
  ch: array[0..92] of char = ('0','1','2'...etc);

IMHO ist sogar das noch übertrieben. Man kann stattdessen auch Chr und Ord verwenden.