As Vincent mentioned earlier, LCL works with UTF8 Encoded strings. You need to convert Memo.Text to ansi string first:
procedure TForm1.Button1Click(Sender: TObject); var stInp: String; stOut: String; i: integer; begin stOut := ''; stInp := UTF8Decode(Memo1.Lines.Text); // convert the string for i := 1 to length(stInp) do Begin .... thanks, dmitry -- _______________________________________________ Lazarus mailing list [email protected] http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
