ERROR

Moze mi ktos wytlumaczyc na czym polega blad "invalid pointer operation" i jak moge sie go pozbyc w programie???
[???] [???] [???]

Nieprawidłowa operacja na wskaźniku. Może byś tak podał okoliczności wystąienia błędu (np. fragment kodu).

pisze program i do niego dll-ke. W dll wstawilem cos takiego:

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;

nie jest to jeszcze ukonczone. Ma pokazywac grosze. W programie wstawilem natomiast to:

b := Slownie(Zloty(FloatToStr(f)));
c := Slownie(Grosz(FloatToStr(f)));
Slownie1.Lines.Text := b + ' złote(ych) ' + c + ' grosze(y)';

Jak sprawdzalem w debugerze do dokladnie przyostatniej linni wyswietlany jest blad
Funkcja
Zloty(FloatToStr(f))
zwraca mi dokladna ilosc zlotowek. A:
Grosz(FloatToStr(f)) ilosc groszy.

Wczesniej juz sie o cos podobnego pytalem dostalem link:
http://4programmers.net/view.php?id=188

wkleilem zamiast kodu w dll kod po tym linkiem ale i tak wyswietlany jest blad

Mozesz jakos pomoc???
Bede bardzo wdzieczny. :-)

Jak korzystasz ze stringów do poczytaj w Helpie o DLL + string. Jakiś moduł trzeba dodać (ShareMem chyba, ale nie pamiętam dokładnie).

Jak korzystasz ze stringów do poczytaj w Helpie o DLL + string. Jakiś moduł trzeba dodać (ShareMem chyba, ale nie pamiętam dokładnie).

Chodzi tylko o przekazywanie stringów do i z procedur w DLL. Najprościej uzywać PChar zamiast stringów. Ale mozna ShareMem, jest to dokładnie opisane w komentarzu dodawanym automatycznie przez Delphi do kazdej DLL-ki.