KOD W DELPHI

0

pisze program ktory zamienia ilosc pieniedzy na slowny napis,
kompilacja idzie bez zazutu ale gdy wykonuje sie ten kod:

const
nascie = 'naście';
dziesci = 'dzieści';
dziesiat = 'dziesiąt';

function SlownieGr(x : String) : String;
var
j, dz, na, c, d : String;
a : Integer;
begin
j := '';
dz := '';
na := '';
a := StrToInt(x[1]);
if a 1 then
begin
case x[2] of
'1' : j := 'jeden';
'2' : j := 'dwa';
'3' : j := 'trzy';
'4' : j := 'cztery';
'5' : j := 'pięć';
'6' : j := 'sześć';
'7' : j := 'siedem';
'8' : j := 'osiem';
'9' : j := 'dziewieć';
end;
case x[1] of
'2' : dz := 'dwa' + dziesci + 'a';
'3' : dz := 'trzy' + dziesci;
'4' : dz := 'czter' + dziesci;
'5' : dz := 'pięć' + dziesiat;
'6' : dz := 'sześć' + dziesiat;
'7' : dz := 'siedem' + dziesiat;
'8' : dz := 'osiem' + dziesiat;
'9' : dz := 'dziewięć' + dziesiat;
end;
c := dz + ' ' + j + ' grosz(y).';
SlownieGr := c;
end
else
begin
case x[1] of
'1' : na := 'jede' + nascie;
'2' : na := 'dwa' + nascie;
'3' : na := 'trzy' + nascie;
'4' : na := 'czter' + nascie;
'5' : na := 'pięt' + nascie;
'6' : na := 'szes' + nascie;
'7' : na := 'siedem' + nascie;
'8' : na := 'osiem' + nascie;
'9' : na := 'dziewięt' + nascie;
end;
d := na + ' groszy.';
SlownieGr := d;
end;
end;

nastepuje w nim gdzies blad 'Invalid pointer operation' ktorego nie moge znalezc.
MOZE MI KTOS POMOC?????????????????????????????

[???] [???] [???]

0

DZIĘKI
:-) :-) :-) :-) :-) :-)

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0