Stringreplace - Zugriffsverletzung

**gordenfreeman2**

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?

zusammenfalten · markieren

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

Stringreplace - Zugriffsverletzung

Stringreplace - Zugriffsverletzung

Forumregeln