String aus Anwendung in Dll übergeben und zurück

[Armageddon]

So hat sich erledigt,

hab nur vorher was übersehen. Könnte sich noch jemand anschauen ob das was ich programmiert habe keine Speicherlecks oder ähnliches hinterläßt? Wär mir sehr wichtig. Konstrukitve Ratschläge nehm ich gerne an und versuche sie auch umzusetzen.

Hier der fertige funktionierende Code:

Die procedure im Programm

Delphi-Quellcode:

procedure KommaAusgang(Woher: TForm; Eingabe: String; var Ausgabe:String);
var
  EditKommaAusgang: procedure(Zeichen:PChar; var Ergebnis: PChar); stdcall;
  DLLMemFreigeben: procedure(AChars: PChar); stdcall;
  LibMod: HMODULE;
  Rueckgabe: PChar;
begin
  if not FileExists('mtrcnc32.dll') then
  begin
    Fehler(Woher, 'Die Datei "mtrcnc32.dll" wurde nicht gefunden!');
  end;
  LibMod := LoadLibrary(PChar(ExtractFilePath(ParamStr(0))+'mtrcnc32.dll'));
  if LibMod <> 0 then
  begin
    EditKommaAusgang := GetProcAddress(LibMod, 'EditKommaAusgang');
    DLLMemFreigeben := GetProcAddress(LibMod, 'FreeDLLMem');
    if Assigned(EditKommaAusgang) and Assigned(DLLMemFreigeben) then
    begin
      EditKommaAusgang(PChar(Eingabe), Rueckgabe);
      Ausgabe := Rueckgabe;
      DLLMemFreigeben(Rueckgabe);
    end
    else Ausgabe := Eingabe;
    FreeLibrary(LibMod);
  end;
end;

Der Aufruf im Programm:

Delphi-Quellcode:

procedure TForm1.EditKommaExit(Sender: TObject);
var
  Zeichen: String;
begin
  LabelLoeschen(self);
  KommaAusgang(self, (Sender as TEdit).Text, Zeichen);
  (Sender as TEdit).Text := Zeichen;
  StellenPruefen(self, Sender as TEdit);
end;

Und das hier in der DLL:

Delphi-Quellcode:

procedure FreeDLLMem(AChars: PChar); stdcall
begin
  StrDispose(AChars);
end;

procedure EditKommaAusgang(Zeichen:PChar; var Ergebnis: PChar); stdcall;
var
  T, VKT, HKT, B: String;
  MP, KP: Integer;
  VKTL, HKTL: Boolean;
begin
  VKTL := False;
  HKTL := False;
  T := Zeichen;
  if T = '.' then  T := '0.0';
  if T = '-' then T := '0.0';
  if T = '-.' then T := '0.0';
  if Pos('.', T) = 0 then T := T + '.';
  MP := Pos('-', T);
  KP := Pos('.', T);
  if KP > 0 then
  begin
    VKT := Copy(T, 1, KP - 1);
    if MP > 0 then VKT := Copy(VKT, 2, Length(VKT) - 1);
    HKT := Copy(T, KP + 1, Length(T) - KP);
//Vorkommatext Nullen kürzen
    B := Copy(VKT, 1, 1);
    while B = '0' do
    begin
      VKT := Copy(VKT, 2, Length(VKT) - 1);
      B := Copy(VKT, 1, 1);
      if Length(VKT) = 0 then VKTL := True;
    end;
//Hinterkommatext Nullen kürzen
    B := Copy(HKT, Length(HKT), 1);
    while B = '0' do
    begin
      HKT := Copy(HKT, 1, Length(HKT) - 1);
      B := Copy(HKT, Length(HKT), 1);
      if Length(HKT) = 0 then HKTL := True;
    end;
    T := '';
    if MP > 0 then T := '-';
    T := T + VKT + '.' + HKT;
  end;
  if T = '.' then if (VKTL = True) or (HKTL = True) then T := '0.0' else T := '';
  if T = '-.' then if (VKTL = True) or (HKTL = True) then T := '0.0' else T := '';
  Ergebnis := StrAlloc(length(T) + 1);
  Move(T[1], Ergebnis^, length(T));
  Ergebnis[length(T)] := #0; 
end;

exports
  FreeDLLMem, EditKommaAusgang;

Danke schon mal im voraus, Arma