String in Char konvertieren

[Aphton]

Zitat von Wolfgang Mix:

Vielleicht klappt
Zeichen:= copy(strZeichen(1,1);

Chemiker, probier das mal aus:

Delphi-Quellcode:

var
  i: Integer;
  strNormalText, strZeichen: String;
  caZ: Char;
begin
  i := 1;
  strNormalText := 'ABCD';
  strZeichen:= copy(strNormalText,i,1);
  caZ:= strZeichen[1]; // hier kommt eine Fehlermeldung.
  ShowMessage( strNormalText + '[' + IntToStr(i) + '] = ' + caZ );

Ein paar Hinweise:
- Die Indizierung bei Strings fängt bei 1 an und nicht bei 0;
- i könnte bei dir nicht initialisiert / außerhalb des Wertebereiches (i < 1 oder i > Length(Str)) sein
- strZeichen könnte nach copy leer sein (Grund: voriger Hinweis ODER auch strNormalText ist leer)

MfG