Hallo Leute, ich verstehe die welt nicht mehr, folgendes Problem habe ich:
Ich habe hier zwei Funktionen in einer
DLL, die mir das übergebene Datum in Tag, Monat, Jahr aufspalten.
Die Funktion getMonat funktioniert auch. Aber bei der Funktion getJahr, sobald ich stringgreplace aufrufe und den Wert zurückgebe bekomme ich eine Zugriffsverletzung und ich weiß beim Teufel nicht warum. Was mache ich in der Funktion falsch?
Delphi-Quellcode:
function getMonat(date: TDate): string;stdcall;
var
datum: pchar;
zw,zw1,zw2,zw3: pchar;
z,z1,z2,z3: string;
monat: string;
begin
datum := pchar(datetostr(date));
zw := strpos(datum,'.');
z := stringreplace(zw,'.','',[]);
zw2 := strpos(pchar(z),'.');
z1 := stringreplace(z,zw2,'',[]);
result := z1;
end;
function getJahr(tagmonat: string): string;stdcall;
var
datum: string;
date: TDate;
z: string;
begin
// datum := pchar(datetostr(date));
datum := datetostr(date);
z := stringreplace('KAKAKAK','sdfsadfsdf','assaas',[]);
result := z;
end;
Bitte um Hilfe danke