Code:
DECLARE EXTERNAL FUNCTION VELIKASLOVA
CSTRING(500)
RETURNS CSTRING(500)
ENTRY_POINT 'VelikaSlova' MODULE_NAME 'ZFireBirdUDF.dll';
Code:
function VelikaSlova(s: PChar): PChar;
var
sTmp: String;
begin
sTmp := s;
sTmp := UpperCase(sTmp);
sTmp := AnsiReplaceStr(sTmp, 'č', 'Č');
sTmp := AnsiReplaceStr(sTmp, 'ć', 'Ć');
sTmp := AnsiReplaceStr(sTmp, 'š', 'Š');
sTmp := AnsiReplaceStr(sTmp, 'đ', 'Đ');
sTmp := AnsiReplaceStr(sTmp, 'ž', 'Ž');
Result := PChar(sTmp);
end;
Nadam se da ce ti ovo pomoci