In der anderen Richtung sollte AnsiChar statt Chr funktionieren. Du kannst auch AnsiChar(Chr(... verwenden, aber die Umwandlung in einen Char ist dort nicht nötig.
Tschuldige, aber das habe ich jetzt nicht verstanden. Aber wenn ich mir die Prozedur mal nach so vielen Jahren ansehe, dann geht das hier nur um Groß- bzw- Kleinschreibung, wie gesagt, wenn ich das auskommentiere, wird das Programm kompiliert. Könntest Du mir vielleicht nur noch kurz erklären, wie ich die Zeile
AktZeiger^.Satz.Typ[1]:= Chr(Ord(AktZeiger^.Satz.Typ[1])+16);
umformulieren müßte?
Hier man die ganze Prozedur:
Begin
If AktZeiger <> Nil Then
Begin
If Ord (AktZeiger^.Satz.Typ[1]) < 58 Then
Begin
AktZeiger^.Satz.Typ[1]:= Chr(Ord(AktZeiger^.Satz.Typ[1])+16);
StringGrid1.Cells[0,StringGrid1.Row]:= C_Kontrolliert;
End Else
Begin
AktZeiger^.Satz.Typ[1]:= Chr(Ord(AktZeiger^.Satz.Typ[1])-16);
StringGrid1.Cells[0,StringGrid1.Row]:= '';
End;
GlobalChanged:= True;
Form1.StatusBar1.Panels[0].Text:= 'Daten geändert';
DispAktZeiger;
FillStringGrid(Sender); (* Damit Markierung angezeigt wird *)
End;
End;