Sowas wie Include bei php ?

[Supremacy]

Hoi,

da mein programm immer größer wird und es ca. so aussieht....

Delphi-Quellcode:

if bla=xy then begin
...
end;

if bla=xy then begin
...
end;

if bla=xy then begin
...
end;

möchte ich diese einzelnen if schleifen lieber includen als sie im source-code direkt zu haben da ich langsam die übersicht verliere.

jemand da der weiß wie man das mit include befehl lösen kann ?

ich kenn den nur von php und weiß nicht ob es mit delphi überhaupt geht. :(

plz help

[edit=r_kerber]Delphi-Tags gesetzt. Mfg, r_kerber[/edit]

[Luckie]

Delphi-Quellcode:

{$INCLUDE dateiname.inc}

Der Inhalt der datei wird an der Stelle eingefügt, wo obige Zeile im Code steht.

Aber wenn du bei deinen if's die Übersicht verlierst, dann würde ich mir mal über das Programmdesign Gedanken machen.

[r_kerber]

Hallo Supremacy,

zum einen kannst Du Dein Programm ja in mehrere Units aufteilen. Vor allem für Codestücke, die Du mehrfach in Deinem Progamm mehrfach nutzt, solltest Du separate Funktionen oder Proceduren schreiben.
Ein Include gibt es auch. Eine Suche in der OH nach Datei einbinden liefert Dir folgendes:

Zitat:

Syntax {$I Dateiname}
{$INCLUDE Dateiname}

[Chewie]

Das Include funktioniert aber nur außerhalb von Anweisungsblöcken.

[Supremacy]

Zitat:

Zitat von Luckie

Aber wenn du bei deinen if's die Übersicht verlierst, dann würde ich mir mal über das Programmdesign Gedanken machen.

das Problem ist das sich all diese If's in einer Procedure befinden nämlich ""procedure TForm1.LogChange(Sender: TObject);""

aber danke für den code snippet. werd ich gleich mal testen