String in einer DLL ändern funktioniert ohne Error geht ned

[sCrAPt]

HiH :o

Ich habe eine DLL in der folgendes steht:

Delphi-Quellcode:

function CharReplace(Text: String; Von: Integer; Zu:String): String; export;
var
  s: string;
begin
  s := Text;
  s[Von] := Zu[1];
  Result := s;
end;

exports
  charreplace index 3;

und mit einem anderen Programm rufe ich diese noch so schöne function auf:

Delphi-Quellcode:

function CharReplace(Text: String; Von: Integer; Zu:String): String; external 'strings.dll' index 3;

procedure TForm1.Button1Click(Sender: TObject);
begin
  showmessage(charreplace('Hallo',2,'f'));
end;

Ausführen tut er es dann auch aber dann kommt gleich ein Error

Zitat:

Zitat von Projekt1

Ungültige Zeigeroperation

Aber wenn ich CharReplace in Projekt1 hinzufüge kommt dieser Error nicht. Woran liegt das? Wie kann ich diesen Error entfernen?

:angle:, sCrAPt

[mirage228]

Wenn du in DLLs mit Strings arbeiten möchtest, musst du in der DLL als erstes die unit ShareMem (vor allen anderen) einbinden.
Zusätzlichh brauchst du dann die borlandmm.dll oder delphimm.dll oder je nach dem...

mfG
mirage228

[ustra]

Hi,

lese den Kommentar in Delphi, nach dem Du über Datei| Neu eine neues DLL Projekt erzeugt hast und lese Dir das durch : DDL und Strings und Du weißt, wo der Fehler liegt´und was dagegen hilft.

Beste Grüße
Ulrich

[sCrAPt]

Ich hab den Kommentar selbstverständlich gleich nachdem ich ihn gesehen hab gelöscht :D
Werd ich glaub mal ausprobieren.

:angle:, sCrAPt

[sCrAPt]

HiHo :o

Hab ich jetzt gemacht, wenn ich aber das Programm beende kommt folgender Error:

Zitat:

Zitat von Error

Runtime error 217 at 00413E14

:angle:, sCrAPt

[kiar]

hast du auch die unit sharemem in der aufrufenden anwendung an erster stelle der uses eingefügt?

[sCrAPt]

Ja.
Auch bei der DLL (?)

:angle:, sCrAPt

[sakura]

Bei beiden als erstes in die Projekt-Uses-Klausel.

...:cat:...

[sCrAPt]

bei beiden an aller erster stelle

:angle:, sCrAPt