-
Forum: Object-Pascal / Delphi-Language
Delphi
by Jens Hartmann,
26. Mai 2009
Da hast Du wahrscheinlich sogar recht. Mein Problem ist nur, das ich das mit den Methoden und Parametern noch nicht so ganz verstanden habe. Ich denke diese Grundlage müsste ich mir erstmal erarbeiten.
Naja, ich habe es ja jetzt erstmal am laufen, Ich werde jetzt erstmal noch die letzten geforderten Funktion versuchen einzubinden, und ich denke, wenn dann Zeit ist, das Programm eventuell...
-
Forum: Object-Pascal / Delphi-Language
Delphi
by Jens Hartmann,
20. Mai 2009
Ja, wenn ich dich richtig versteh, meinst Du meine Namensgebung etc. Das Problem, ist das ich das ganze mal irgendwann aus einem Hobby herraus angefangen habe.
Das, das Ergebniss jetzt eine kommerzielle Anwendung wird, habe ich ja nie geahnt.
Naja, es macht natürlich um so mehr Spaß, wenn man weiß, das es in Zukunft auch genutzt wird, hat aber leider halt den Nachteil, das man etwas unter...
-
Forum: Object-Pascal / Delphi-Language
Delphi
by Jens Hartmann,
19. Mai 2009
So, habe FindComponent ausgelagert, und meine Schleife noch etwas angepasst. Ich denke sieht jetzt schon besser aus. Vieleicht könnt Ihr ja so noch ein bißchen helfen zu verbessern.
{VST Funktion um Abfrage aus der AnsichtForm zu generieren}
function GetRadioGroupIdx(aParent : TWinControl; No : Integer) : Integer;
var
aName : String;
begin
aName := 'RadioGroup' + IntToStr(No);
...
-
Forum: Object-Pascal / Delphi-Language
Delphi
by Jens Hartmann,
19. Mai 2009
Das werde ich aufjedenfall noch machen. Ich bin dir auch sehr dankbar für den Tip. Es stört mich nämlich selber ein bißchen. Ich wollte es halt erstmal ans laufen bringen.
Und das ist mir ja zumindestens mal soweit jetzt doch noch gelungen.
Mein Grundlegende frage, wäre halt auch, ob das mit den Lokalen Var. und der Konstruktion sonst soweit OK ist.
Ich werde die Funktionen mal...
-
Forum: Object-Pascal / Delphi-Language
Delphi
by Jens Hartmann,
19. Mai 2009
Ich glaube, ich höre für heute auf und gehe ins Bett. Jetzt hat es doch geklappt, so wie ich es wollte, auch mit den Lokalen Variablen. Wenn man natürlich keine Schleife um die Abfrage baut, kann das auch nicht funktionieren.
Hier mal mein Code, an dem Ihr aber wahrscheinlich noch massig auszusetzten habt. Bitte lasst Euch aus. Es kann mir ja nur helfen weiterzukommen.
procedure...
-
Forum: Object-Pascal / Delphi-Language
Delphi
by Jens Hartmann,
19. Mai 2009
Man ey, jetzt habe ich deine Fangfrage verstanden. Das geht ja gar nicht. Lokale Variablen, werden ja bei jedem durchlauf neu initialisiert, und daher wird immer nur der Zustand von der RadioGroup etc. 1 abgefragt.
Man, das hat jetzt echt lange gedauert bis ich darauf gekommen. Aber wie kann ich das Problem den am ehesten angehen.
Das Problem ist, ich habe die Einstellungen in einer...
-
Forum: Object-Pascal / Delphi-Language
Delphi
by Jens Hartmann,
19. Mai 2009
Also, das mit dem auslagern klingt logisch, kann ich bestimmt ändern. Aber das eigendliche Problem liegt in folgendem Code...
var
DatenMB : TOMBSerie;
DatenUEZ : TOUEZ;
iRadioGroup : integer; //Var. aktuelle RadioGroup
iCheckBox : integer; //Var. aktuelle CheckBox
iEdit1 : integer; //Var. aktuelles Edit 1
sEdit1 : String; //Var. aktueller Text Edit 1
...
-
Forum: Object-Pascal / Delphi-Language
Delphi
by Jens Hartmann,
18. Mai 2009
ich denke schon. Wenn du auf die Variablen iEdit1 und soweiter rauswillst. Die habe sind in der Procedure deklariert. Also lokal und nicht global. Und da ichh Sie lokal integriert habe, müsste ich Ihr doch auch den Wert vom Edit zuweisen können, Oder?
Da gebe ich Dir auch recht, aber da ich ja bei verschiedene Ereignissen, verschieden Farben zuweisen möchte, denke ich das es so richtig...
-
Forum: Object-Pascal / Delphi-Language
Delphi
by Jens Hartmann,
18. Mai 2009
Ja, das weiß ich. Sind aber immer nur zwei if´s, weil danach die CheckBox hochgesetzt wird. Aber das ist ja nicht mein Fehler
Gruß Jens
-
Forum: Object-Pascal / Delphi-Language
Delphi
by Jens Hartmann,
18. Mai 2009
Naja,
so einfach wie ich dachte ist es doch nicht. Ich habe das ganze angepasst, habe auch keinen Fehler beim kompelieren, allerdings wird auch keine Zeile gefärbt. Der Fehler muss irgendwo darin liegen, das die Text der Edit´s nicht gelesen werden.
Irgendwas ist da mit FindComponent noch falsch.
Vieleicht hat ja doch jemand mal einen Tip..
Hier mein Code..
-
Forum: Object-Pascal / Delphi-Language
Delphi
by Jens Hartmann,
18. Mai 2009
Sorry,
hat sich schon erledigt. Manchmal steht man halt neben sich...
case(AnsichtForm.FindComponent('RadioGroup' + IntToStr(iRadioGroup))as TRadioGroup).ItemIndex of
Gruß Jens
-
Forum: Object-Pascal / Delphi-Language
Delphi
by Jens Hartmann,
18. Mai 2009
Hallo zusammen,
ich habe ein VirtualTreeView, in dem ich Zeilen farblich Darstelle wenn gewisse Inhalte im VST stehen. Jetzt habe ich mehrere Checkboxen und RadioButton in einer Konfigurationsform eingebunden, die dem nutzer die Möglichkeit geben soll, diese Farbfilter selber zu erstellen.
Das ganz klappt auch ganz gut, ist jedoch sehr umständlich programmiert. Momentan habe ich hunderte...