ini file ?

[patti]

Zitat von t0mmy:

Ich hab jedoch noch ne weitere Frage gibt es eine möglichkeit die Ini-Datei direkt in dem Verzeichnis zu erstellen und zu lesen wo das Programm ist?

Versuchs mal mit ExtractFilePath(Application.ExeName); Das liefert dir den Pfad der Anwendung. Du musst allerdings beachten, dass du unter Umständen keine Schreibrechte in diesem Pfad hast!

[t0mmy]

Okay danke für die Info werds probieren aber vorerst hab ich ne andere frage dazu und zwar ich prüf ob eine Datei existiert... und dazu hab ich zwei String formatierungen aber ich weiss nicht was da stimmt

Delphi-Quellcode:

  if FileExists(+Quelle++filename+'.xml') then
    goto checkAuftrag
  else begin
    ShowMessage('.xml Datei existiert nicht im Verzeichnis!');
    exit;
  end;

[xZise]

Tipp:
Neue Frage -> Neuer Thread

Und was machst du bei "goto checkAuftrag"? Schreib das doch einfach direkt da rein. Und findest du nicht das da ein bisschen viele "Pluszeichen" sind:
Quelle + Filename + '.xml' MfG
Fabian

[t0mmy]

Danke für deinen Tipp aber die Moderatoren haben sich darüber schon aufgeregt das ich wenn ich eine neue Frage habe gleich einen neuen Thread eröffne.

bei goto checkAuftrag prüf ich ob im edit-Feld etwas eingetragen worden ist.
(Die Software ist für ein Spiel, würd viel Text ergeben wenn ich das ganze erklären würde )

Danke es funktioniert ^^

[DeddyH]

Zitat von t0mmy:

Danke für deinen Tipp aber die Moderatoren haben sich darüber schon aufgeregt das ich wenn ich eine neue Frage habe gleich einen neuen Thread eröffne.

War das nicht eher andersherum? Kann ich mir sonst nur schwer vorstellen.

[mkinzler]

Zitat:

Danke für deinen Tipp aber die Moderatoren haben sich darüber schon aufgeregt das ich wenn ich eine neue Frage habe gleich einen neuen Thread eröffne.

Nein wir haben dein Pushen angemahnt, das ist was anderes

[Teekeks]

Du weist aber das nach einem goto nicht wieder zu dieser stelle zurück gesprungen wird?

[Luckie]

Zitat von t0mmy:

Delphi-Quellcode:

  if FileExists(+Quelle++filename+'.xml') then
    goto checkAuftrag
  else begin
    ShowMessage('.xml Datei existiert nicht im Verzeichnis!');
    exit;
  end;

Warum ist checkAuftrag keine eigenständige Routine? Damit sparst du dir diesen ekligen goto-Aufruf.

[Sir Rufo]

Zitat von t0mmy:

Danke für deinen Tipp aber die Moderatoren haben sich darüber schon aufgeregt das ich wenn ich eine neue Frage habe gleich einen neuen Thread eröffne.

[OT]Wir haben hier für jeden einsehbar die Forumsregeln abgelegt.
Lesen, Verstehen, Akzeptieren, dann klappt es auch mit den Mods[/OT]

[t0mmy]

@Luckie

Ja hast recht. Da ich noch ein Anfänger in sachen Delphi bin möcht ich erstmal alle Funktionen kennenlernen und das Programm hauptsächlich zum Laufen bringen. Um die Programmformatierung etc. kümmere ich mich wenn alles Funktionsfähig ist.