freepascal - Fetching cyrillic characters from TMemo -
i developing application using lazarus , have characters of text user has entered in tmemo component. using following code fetch characters 1 one (here mmtext name of tmemo component):
var i, j: integer; line: string; symbol: char; begin := 0 mmtext.lines.count-1 begin line := mmtext.lines[i]; j := 1 length(line) begin symbol := line[j]; showmessage(symbol); //this line debugging purposes ...
when latin characters entered in tmemo component, popup messages each letter appear when cycle reaches cyrillic character there nothing in popup message box.
could give me advice should achieve desired result?
for interested, answer here:
http://forum.lazarus.freepascal.org/index.php?topic=29146.msg183536#msg183536
Comments
Post a Comment