| Autor |
Beitrag |
MMR88
Hält's aus hier
Beiträge: 6
Win XP
7 Enterprise
|
Verfasst: Do 20.01.05 21:55
Hallo,
beschäftige mich nun schon seit mehr als einem halben jahr mit delphi (wohl doch ziemlich kurz), einfache Progs bekomm ich auch noch hin, aber nun zum eigentlichen Problem:
Ich hab mir Vorgenommen einen Umrechner für Verschieden Größen zu erstellen (Insgesamt 21). Mein Programm sieht wie folgt aus: Ich hab oben die 21 Tabs der Pagecontrol in den Pages sind je 2 GroupBoxen von denen jede eine ListBox enthält. Unter dem PageControl ist ein Editfeld zur eingabe eines Wertes und eines zur Ausgabe. Darunter noch der Button Berechnen und Schließen.
Lange rede kurzer sinn...Wie bekomm ich den Berechnen Button dazu das der mir nur mit den Listboxen der aktuellen page rechnet? Ich hab mir überlegt dies über eine case anweisung zu machen die auf eigene prozeduren für jede page verweist, hab aber leider keine Ahnung wie ich selbst eine Prozedur erstelle mal abgesehen von dem problem das in der case Anweisung darzustellen.
Ich freue mich auf Antworten
Mfg
MMR
_________________ "Wer sich nur im Rahmen seiner Möglichkeiten bewegt, kennt seine Fähigkeiten nicht"
|
|
IngoD7
 
Beiträge: 629
D7
|
Verfasst: Mo 24.01.05 14:45
Es gibt dafür viele Lösungsansätze, von denen die sinnvollsten (handeln von Arrays oder aber auch von der Methode FindComponent) jetzt wahrscheinlich zu hoch für dich wären.
Deine Idee mit case lässt sich aber ja durchaus verfolgen. Die aktuelle Page des PageControls erhälst du durch die Eigenschaften TPageControl.ActivePage und TPageControl.ActivePageIndex. Letzteres könntest du benutzen:   Delphi-Quelltext
1:
2:
3:
4:
| case PageControl.ActivePageIndex of
0: ...
1: ...
... usw. |
Wie Prozeduren und Funktionen in Delphi benutzt werden, solltest du allerdings grundsätzlich wissen.
Lese Anfänger-Tutorials bzw. benutze die Delphi-Online-Hilfe, um an solcherlei Grundlagen zu gelangen.
|
|
MMR88 
Hält's aus hier
Beiträge: 6
Win XP
7 Enterprise
|
Verfasst: Mo 24.01.05 15:59
Vielen Dank,
das bringt mich schonmal weiter. Wäre nett wenn mir noch jemand sagt wie ich dephi klar mache das es z.b. bei
case ... of
1: ???
die prozedur xy ausführt. Ich weiß, dass dies sicherlich irgendwo steht. Ich bin nur leider etwas zu faul, um mich durch die ganzen threads durchzuklicken.
Danke für eure Hilfe
Mfg
MMR88
_________________ "Wer sich nur im Rahmen seiner Möglichkeiten bewegt, kennt seine Fähigkeiten nicht"
|
|
Elite
Ehemaliges Mitglied
Erhaltene Danke: 1
|
Verfasst: Mo 24.01.05 16:01
Delphi-Quelltext
1:
2:
3:
4:
| case ... of
1: xy;
2: AndereProzedur;
end; |
|
|
MMR88
Hält's aus hier
Beiträge: 6
Win XP
7 Enterprise
|
Verfasst: Mo 24.01.05 16:09
Mmh...
Das hab ich jetzt nicht ganz verstanden. Muss ich wirklich nur den Prozedurnamen anhängen, oder noch irgendwas (was auch immer) dazufügen?
Thx
MFG
MMR
_________________ "Wer sich nur im Rahmen seiner Möglichkeiten bewegt, kennt seine Fähigkeiten nicht"
|
|
Radioactive
Beiträge: 179
Win 98, Win XP Home SP2
D3 Prof, D7 Pers, D2005 Pers
|
Verfasst: Mo 24.01.05 16:14
Es ist ganz einfach:
Einfach nur den Procedure-Namen oder eine sonstige Anweisung anhängen. Es geht auch mit begin-end:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
| case ... of
1: begin
Showmessage('Hallo!');
end;
2: xy;
3: begin
andereProzedur;
Label1.Text := IntToStr(1);
end;
4: bloed := true;
end; |
|
|
Elite
Ehemaliges Mitglied
Erhaltene Danke: 1
|
Verfasst: Mo 24.01.05 17:14
| MMR88 hat folgendes geschrieben: | Muss ich wirklich nur den Prozedurnamen anhängen, oder noch irgendwas[...] dazufügen?
|
Der Delphi-Compiler gibt zwar nur die Antworten "Richtig" oder "Falsch", aber dafür beantwortet er die jede Frage - und zwar schneller und korrekter als jeder andere.
Kurz: Probieren geht über Studieren.
|
|
MMR88
Hält's aus hier
Beiträge: 6
Win XP
7 Enterprise
|
Verfasst: Mo 24.01.05 19:16
Danke für die schnelle Hilfe,
wenn mein Prog fertig (Wer weiß wann das ist. ;-) ) ist werde ich es veröffentlichen.
Mfg
MMR88
_________________ "Wer sich nur im Rahmen seiner Möglichkeiten bewegt, kennt seine Fähigkeiten nicht"
|
|
MMR88
Hält's aus hier
Beiträge: 6
Win XP
7 Enterprise
|
Verfasst: Mo 24.01.05 21:24
Hallo
tja schon das nächste Prob. Nach langem suchen über eigene Prozeduren bin ich leider nicht fündig geworden. Ich würde mich sehr freuen, wenn mir das mal jemand einfach erklären könnte.
Thx
Mfg
MMR88
_________________ "Wer sich nur im Rahmen seiner Möglichkeiten bewegt, kennt seine Fähigkeiten nicht"
|
|
MMR88
Hält's aus hier
Beiträge: 6
Win XP
7 Enterprise
|
Verfasst: Di 25.01.05 08:39
Hallo,
Mein Prob hat sich aufgeklärt. Ich bin am Besteln.
Mal sehen wann ich fertig bin.
Danke Nochmal für die rege Hilfe.
Mfg
MMR88
_________________ "Wer sich nur im Rahmen seiner Möglichkeiten bewegt, kennt seine Fähigkeiten nicht"
|
|
