also ich hab folgendes problem:
Text is ein string; Text[i] damit dann ein Char.
Jetzt will ich aus dem Text[i] ein Integer machen, wozu ich ne funktion geschrieben hab:
Delphi-Quellcode:
function CharToInt(C: Char):integer;
begin
if C = '0' then Result := 0;
if C = '1' then Result := 1;
if C = '2' then Result := 2;
if C = '3' then Result := 3;
if C = '4' then Result := 4;
if C = '5' then Result := 5;
if C = '6' then Result := 6;
if C = '7' then Result := 7;
if C = '8' then Result := 8;
if C = '9' then Result := 9;
end;
so und jetzt hab ich nen array of TColor, bei dem das 8. Feld so ausieht:
IrcColors[8] := rgb(255, 255, 0);
wenn ich jetzt die SelAttributes.Color so setze:
RTE.SelAttributes.Color := IrcColors[8];
dann geht das, aber sobald ich das so mache:
RTE.SelAttributes.Color := IrcColors[CharToInt(Text[i])];
gehts einfach nicht mehr, also s kommt kein fehler oder so, aber s wird einfach kein Gelb zugewiesen und Ja ich bin mir sicher das Text[i] eine ziffer von 0-9 ist, aber es geht einfach trotdem nit...
kann mir jemand erklären was ich falsch mach? ich find den fehler absolut nit...
mfG Green