Zitat von
Armageddon:
So hier noch der Code der
Dll[...]
Delphi-Quellcode:
library mtrcnc32;
uses
SysUtils, Classes, Windows;
{$R *.res}
//[...]
procedure Pruefen(Zahl: PChar; var Start, Laenge: Integer); stdcall;
//[...]
exports
Speichern, Pruefen;
begin
end.
Sieht doch gut aus.
In der
Unit, in der das Programm steht, sieht das Ganze dann so aus (irgendwo, z.B. in Button1.Click):
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
s, l: Integer;
begin
Pruefen('123.456', s, l);
ShowMessage(IntToStr(s));
ShowMessage(IntToStr(l));
end;
Funktioniert zwar nur wenn die beiden Teile vor und nach dem Komma mehr als drei Stellen haben, aber deinem Code zufolge scheint das so beabsichtigt zu sein
Auch daß der erste Wert von Start überschrieben wird, scheint beabsichtigt zu sein.
Wie dem auch sei, der Aufruf funktioniert, ob die Ergebnisse sinnvoll sind, liegt an dir
