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

Popular posts from this blog

javascript - How to process users in one specific order using map o each function? -

java - Two interface have same method name with different return type -

javascript - Linking from page A to a specific iframe on page B -