Ah OK! Wieder was gelernt!
Ich lasse den Schrott dann nun weg! Btw. der Compliler meckert nicht...
Aber leider liefert es mir jetzt meinen leeren Mist zurück...
Nachdem ich es dann komplett auf AnsiString umgestellt habe bekomme ich beim Aufruf der DDL Routine einen UAE
Code:
function Get_CalcIBAN(sBLZnr, sKtonto, sBIC: AnsiString): String;
var sIBAN : AnsiString;
begin
cobresult := '';
SetLength(IBAN, 30);
IBAN := ' ';
SetLength(sBIC, 12);
sBIC := ' ';
case sevSEPA_CalcIBAN(PAnsiChar(sBlzNr), PAnsiChar(sKtonto), PAnsiChar(sBic), PAnsiChar(sIBAN)) of
ERR_SEPA_CALCIBAN_ERROR : result := '';
ERR_SEPA_CALCIBAN_WARNING : Begin result := IBAN;cobresult := sBIC; end;
ERR_SEPA_CALCIBAN_NOUSAGE: result := '';
ERR_BLZ_WRONG_FORMAT: result := '';
ERR_BLZ_KTONR_WRONG: result := '';
ERR_BLZ_NOT_FOUND: result := '';
else
begin
result := sIBAN;
cobresult := sBIC;
end;
end;
end;
erst nachdem ich diese Zeile weg lasse gehts...
sBIC := ' ';
Danke an Alle die mir die Augen geöffnet haben
