Hello,
I have very simple program on Delphi 7 and want to convert it to Lazarus. There is a problem when using case. Down is example:
var
stInp: String;
stOut: String;
i: integer;
begin
stOut := '';
stInp := Memo1.Lines.Text;
for i := 1 to length(stInp) do
Begin
case stInp[i] of
'а': Begin stOut := stOut + 'a'; End;
Compilator stops after 'a' and say:
MAIN.PAS(243,11) Error: Constant and CASE types do not match
MAIN.PAS(243,11) Error: Ordinal expression expected
In Delphi 7 this work. How can I make it in Lazarus?