pascal editor linha

[tachibana 0]

Tenho que fazer um editor de texto simplificado , so usando uma linha, so que na hora de usar as setas de teclado (esquerda e direita ) aparece K e M, o resto eu consegui, se alguem puder ajudar eu agradeco.Program editor;Uses crt;Type vet = Array [1..10] of char;Var linha : string[80];k: integer;{------------------------------------------------------------------------------}Procedure desenha;var i: integer;Begingotoxy(1,10);textbackground(15);For i:=1 to 80 dowrite(' ');gotoxy(1,15);textbackground(15);For i:=1 to 80 dowrite(' ');End ;{------------------------------------------------------------------------------}Procedure leitura(s:string);varvalor: integer;k: char;Beginwhile valor <> 13 do {enquando a tecla enter não for pressionada, }Begin {não vai imprimir o resultado final }k:=readkey;valor:=ord(k);if valor=8 thenbeginlinha[length(linha)]:=#0;dec(linha[0]);endelseif k in [#32..'z'] then {teclas validas}linha:=linha+k;gotoxy(1,10);textcolor(4);delline;insline;write(linha);end;end;{------------------------------------------------------------------------------}Procedure imprime(s:string);Begingotoxy(1,15); {somente imprime a string final}textcolor(4);writeln(linha);End;{------------------------------------------------------------------------------}Begindesenha;gotoxy(1,10);textcolor(4);leitura(linha); {leitura da string}imprime(linha); {impressão da string}repeat until keypressed;End.

[Palc 0]

Oi tachibana, As flechas geram 2 códigos, o 1o. é o 'ESC' (escape) 1B em hexa ou 27 em decimal e o 2o. é um número que depende se é flecha p/ cima, abaixo, esq. ou direita. você pode descobrir isso dando um 'writeln' no código que retorna qdo você tecla ;){}Palc