Textdatei mit Inhalt erstellen

[Thendo]

Omg -.-,

blöder Fehler xD

Danke Dir =D

[taaktaak]

Zwei Anmerkungen:
1.

Delphi-Quellcode:

 CloseFile(myFile); 

  Reset(myFile); 

  CloseFile(myFile);

das Reset() und das 2te CloseFile() sind überflüssig

2. Normalerweise wäre der Code um eine minimlae Fehlerbehandlung zu ergänzen, also z.B.

Delphi-Quellcode:

 AssignFile(myFile,'DATEINAME'); 
 {$I-} rewrite(myFile); {$I+}
 if ioResult<>0 then ShowMessage('Fehler'
               else begin
  WriteLn(myFile, 'STANDARTTEXT ', adresse);  || Bei adresse soll der Text aus dem Edit1 hinkommen 
  WriteLn(myFile); 
  end;

 CloseFile(myFile);

[Apollonius]

Was soll das {$I-}? Wenn ich diesen Compilerschalter verwende, dann gebe ich im Fehlerfall eine aussagekräftige Fehlermeldung aus. Ansonsten kann man die Exception durchreichen. Wie das mit Try-Finally funktioniert, habe ich ja weiter oben gezeigt.

[Thendo]

Zitat von taaktaak:

Zwei Anmerkungen:
1.

Delphi-Quellcode:

 CloseFile(myFile); 

  Reset(myFile); 

  CloseFile(myFile);

das Reset() und das 2te CloseFile() sind überflüssig

2. Normalerweise wäre der Code um eine minimlae Fehlerbehandlung zu ergänzen, also z.B.

Delphi-Quellcode:

 AssignFile(myFile,'DATEINAME'); 
 {$I-} rewrite(myFile); {$I+}
 if ioResult<>0 then ShowMessage('Fehler'
               else begin
  WriteLn(myFile, 'STANDARTTEXT ', adresse);  || Bei adresse soll der Text aus dem Edit1 hinkommen 
  WriteLn(myFile); 
  end;

 CloseFile(myFile);

Zu 1:
Habs rausgetan^^

Zu 2:
Könntest du bitte erklären was das bringt^^??
Blicke ich iwi nicht durch^^


Und hab noch ne Frage^^
wenn ich jetzt eine If Schleife mit ShellExcute mache:

Delphi-Quellcode:

if Checkbox1.Checked then
  ShellExecute(Handle, nil, 'DATEI.exe', nil, nil, SW_SHOW);
end;

Wie kann ich dem jetzt sagen das die datei in der variablerdner (text aus Edit2) liegt?

[mkinzler]

Zitat:

wenn ich jetzt eine If Schleife mit ShellExcute mache:

Es gibt keine If-Schleifen!

ShellExecute(Handle, nil, PChar( Edit2.Text), nil, nil, SW_SHOW);

[Thendo]

Zitat von mkinzler:

Zitat:

wenn ich jetzt eine If Schleife mit ShellExcute mache:

Es gibt keine If-Schleifen!

ShellExecute(Handle, nil, PChar( Edit2.Text), nil, nil, SW_SHOW);

ich mein das man im Edit2 einen Pfad angibt zu einem Ordner ( z.b= C:\Programme\Blub ) und das der dan aus dem Ordner die Datei startet

[mkinzler]

Dann halt:
ShellExecute(Handle, nil, PChar( Edit2.Text)+'\'+Dateiname, nil, nil, SW_SHOW); Aber ein spezieller Dateidialog wäre wohl eher geignet

[taaktaak]

zu 1) Nun, was bringt eine Fehlerbehandlung? Du hast damit als Programmierer die Möglichkeit, dem Nutzer einen ausführlicheren/gezielteren Hinweis auf einen Fehler zu geben, als es das Betriebssystem kann. Übergebe doch im AssignFile() mal einen Dateinamen mit Angabe eines Laufwerks, dass es bei dir nicht gibt. Dann führe den Code mal mit und mal ohne Fehlerbehandlung aus, dann erkennst du den Unterschied.

zu 2) schon beantwortet

[Thendo]

Zitat von mkinzler:

Dann halt:
ShellExecute(Handle, nil, PChar( Edit2.Text)+'\'+Dateiname, nil, nil, SW_SHOW); Aber ein spezieller Dateidialog wäre wohl eher geignet

Was meinst du mit Dateidialog?

Maan scho wieder en Prob =(

Wie bezeichne ich einen Dateiname xD?

[DeddyH]

Schau mal in der Hilfe nach SelectDirectory, das ist sowas.