Registriert seit: 29. Jan 2008
Ort: Tuttlingen
88 Beiträge
Delphi 2007 Professional
|
Re: exe startet nur auf Entwickler-PC
7. Mai 2010, 14:24
Delphi-Quellcode:
procedure TMenue.FormCreate(Sender: TObject);
var
IniFile, log : TextFile;
zeile : String;
label M10;
begin
//ini Datei einlesen
try
b_gestartet:=False;
if not b_gestartet then
begin
AssignFile(IniFile,'bilder.ini');
Reset(IniFile);
M10: ReadLn(IniFile,zeile);
if copy(zeile,1,6)='[Pfad]' then
ReadLn(IniFile,zeile)
else
goto M10;
StOrdner:=copy(zeile,1,Length(zeile));
b_Gestartet := True;
CloseFile(IniFile);
end;
except
AssignFile(log,'log.txt');
ReWrite(log);
WriteLn(log,'Fehler aufgetreten');
CloseFile(log);
end;
end;
bringt kein log...
Wolfgang Hirsch
|
|
Zitat
|