Einzelnen Beitrag anzeigen

Green

Registriert seit: 11. Jun 2006
156 Beiträge
 
#1

Komisches problem mit Char, String und Integer

  Alt 20. Jun 2006, 23:23
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 = '0then Result := 0;
  if C = '1then Result := 1;
  if C = '2then Result := 2;
  if C = '3then Result := 3;
  if C = '4then Result := 4;
  if C = '5then Result := 5;
  if C = '6then Result := 6;
  if C = '7then Result := 7;
  if C = '8then Result := 8;
  if C = '9then 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
  Mit Zitat antworten Zitat