Entwickler-Ecke
Delphi Language (Object-Pascal) / CLX - Quelltext minimierung
Xenar - Fr 24.12.04 14:21
Titel: Quelltext minimierung
Hallo, :oops:
habe mir einen Texteditior geschrieben. Habe die BitButtons "NEU","BEENDEN" oder "ÖFFNEN" bei denen in der jeweiligen Prozedur eine Identische Case-Schleife steht, außer die Anweisung für clear.memo, close etc..
Wie kann ich die Schleife einmal hinterlegen und dann von den Prozeduren aufrufen und wieder in die Prozedur zurückkehren?
Moderiert von 
Tino: Topic aus Sonstiges verschoben am Mo 27.12.2004 um 14:29
Kroni - Fr 24.12.04 14:24
du schreibst sie dir in eine Procedure....
kannst ja mal den Code schicken, und sagen, welche Größen in die die Schleife reinkommen müssen und welche Größen als Ausgabegrößen dienen.....
Aber allgemein würde ich dir raten, dass du mal in die Hilfe unter Procedure guckst!
Flexxx - Fr 24.12.04 14:33
:arrow: Du könntest eine neue Prozedur schreiben, die du dann in den drei Prozeduren aufrufst.
Delphi-Quelltext
1:
2:
3:
4:
| procedure TForm1.Schleifen();
begin
end; |
(natürlich vorher noch deklarieren :wink: )
:arrow: oder einfach die Prozedur eines anderen Buttons aufrufen:
Delphi-Quelltext
1:
2:
3:
4:
| procedure TForm1.Button2Click(Sender: TObject);
begin
Button1Click(Sender);
end; |
:arrow: Oder einfach eine Prozedur für alle schreiben und in dem Objektinspektor einfach bei allen die gleiche Prozedur beim OnClick Event auswählen.
Das wäre jetzt was mir so einfallen würde.
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!