Datev SELF32.DLL benutzen

[DeddyH]

Müsste es nicht so lauten?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  MySelfWrite : TSelfWrite; //aus der Self32LIB-TLB.pas
  SWResult:Integer;
begin
  MySelfWrite := TSelfWrite.Create(nil);
  try
    MySelfWrite.Open('Datev-FBOP-BW-KNE','','C:\SELF\',2,99999);
    SWResult:=MySelfWrite.CreateTempSet('Datev-FBOP-BW-KNE');
    showmessage('Res.:'+IntToStr(SWResult));
  finally
    MySelfWrite.Free;
  end;
end;