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