Что я не правильно делаю...
И как правильно будет???

function provfile(name_file : char): dword;stdcall;export;
var my_file: TextFile;
my_otkrit : integer;
my_find : Pchar;
begin
showmessage(name_file);
...
end;

вызоваю ее из Явы
lib_load( "prov.dll", "prov" )
lib_func( "prov", "provfile", 1 )
myretfile = provfile(str_getptr("no"))

пустая мессага выходит...

Такой-же вызов но С-билдер библиотеки
int provfile(char *c_a) {
char *a0="Hi from Jane= ";
StrCat(a0,c_a);
ShowMessage(a0);
return(12);
}

мессага "no"

Мне надо что б и на делфине работало...

Плиз Хелп...
Если мона - то примерчик...

Сенкс...
Pchar выдал строку...

Как можно заменить все символы(и спец символы) кроме '0-9' и '.' на пустоту и сравнить два Pchar
Например ("1.0s .2.1" и "1a .0.2.0") и ("1.0s .2.1" и "1a .0.2.1")
Что б результат был "1.0.2.1" > "1.0.2.0" и "1.0.2.1" = "1.0.2.1"
Желательно примером...

Заранее спасибо...