doch tut er
jetzt taucht das nächste Problem auf: Wenn ich alle Debug-Showmessages raus mache, dann passiert garnix. Wenn ich die
DLL lösche, dann läuft das Programm wieder. Und wenn ich eine showmessage in die Procedure einbau, wird die auch angezeigt, allerdings ist das Programm dannach wieder weg.
hier nocheinmal der neue
DLL-Code:
Code:
library DEU;
uses
SysUtils,
Classes;
{$R *.res}
type TInfo=record
author:shortstring;
name:shortstring;
end;
function info:TInfo;stdcall;
var re:tInfo;
begin;
re.author := 'Dominik Bruhn';
re.name := 'German / Deutsch';
result := re;
end;
//=================================================
type TLanguage=record
opentermset:shortstring;
newtermset:shortstring;
end;
function language:TLanguage; stdcall;
var re:TLanguage;
begin;
re.opentermset := 'Termset öffnen';
re.newtermset := 'Neues Termset';
result := re;
end;
exports
language,
info;
begin
end.
die andere Procedure ist gleichgeblieben.
Und nochwas: Das Array ist im Programm nachher leer. Vielleicht habt ihr doch recht. Aber was für andere Möglichkeiten gibt es denn?