Hallo,
wenn ich die procedure unter Win7 ausführe wird von > openDialog.Execute <
gleich nach > if dxfFilename = '' then Exit;< gesprungen
Also alles nach Execute wird gar nicht erst Ausgeführt
Außerhalb der
IDE läuft alles i.o.
Habe Kasperski kein Avira.
Kasperski komplett ausgeschaltet
Trotzdem funktioniert es nicht
Bei einem Anderen Project funktioniert der OpenDialog innerhalb der
IDE einwandfrei
Delphi-Quellcode:
procedure Tfo_main_form.sBtnLoadDxfFileClick(Sender: TObject);
Var
DxfFilename : String;
X,Y : integer;
dxl : TDXF_Layer;
DXXF : TDxf_Entitie;
begin
opdlg_DxfOpen.InitialDir := ExtractFilePath( Application.ExeName);
if opdlg_DxfOpen.Execute then
begin
DxfFileName := opdlg_DxfOpen.FileName;
if dxfFilename = '' then Exit;
DXFFileReader := TDxfReader.Create(dxfFilename);
if DXFFileReader.DxfOk then
begin
DxfFile := TDxf_File.Create;
DXFFileReader.DxfFile := DxfFile;
DXFFileReader.Execute;
end;
FREEANDNIL(DXFFileReader);
end;
// keine Datei ausgewählt
if dxfFilename = '' then Exit;
DxfFile.Calculate;
FDxfFileShow := True;
ShowMinMax;
end;