Einzelnen Beitrag anzeigen

hirsch

Registriert seit: 29. Jan 2008
Ort: Tuttlingen
88 Beiträge
 
Delphi 2007 Professional
 
#13

Re: exe startet nur auf Entwickler-PC

  Alt 7. Mai 2010, 13: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
  Mit Zitat antworten Zitat