Tuş takımında lcd ye çok basamaklı sayı girişi

as hocam sagolsaın artık gına geldı gercekten bu ısten.. yalnız ben goremedım galiba eklemeyı unutmussun

@ anti_cheist programa baktınmı?

muratmert4 hocam bilgilerin için teşekkür ederim.programı inrdirdim.projemde önemli bir noktada katkınız oldu..

Benzer bir uygulama yapmıştım. Tuş okuma kodları aşağıdadır..
temp uzunlugunu kontrol ederek istedigin hane kadar değişkeni tutabilirsin.
procedure tus_oku;
begin
kp := 0;
while ( kp = 0 ) do
kp := Keypad_Key_Click();
case kp of
1: begin temp := temp + '1'; end; // 1
2: begin temp := temp + '2'; end; // 2
3: begin temp := temp + '3';end; // 3
5: begin temp := temp + '4'; end; // 4
6: begin temp := temp + '5'; end; // 5
7: begin temp := temp + '6'; end; // 6
9: begin temp := temp + '7'; end; // 7
10: begin temp := temp + '8'; end; // 8
11: begin temp := temp + '9'; end; // 9
13: begin temp := '';Lcd_out(2,1,' ');end; // * SIL TUSU
14: begin temp := temp + '0'; end; // 0
end;
Lcd_Out(2,1,temp);
end;