Servus!
Ok, so ist das, man denkt, man sei in der Abschlußphase eines Projektes und dann...
Ich habe folgendes Problem:
Mein Programm funktioniert zwar, aber ich habe eben eine Form mit drin.
Tja, und jetzt heißt es "schön was Sie da gemacht haben, aber schmeißen sie die Form raus".
Ok, ich denke, es könnte mit daran liegen, daß ich nicht wirklich OOT denke.
Ich muß also die Form rauswerfen, ich muß also auch Alles, was in der Form steht, rauswerfen. Das dumem ist, da steht eine ganze Menge und Jasocul erinnert sich sicherlich an meine Problematik, einige anweisungen an die Form binden zu müssen, da diese sonst nicht funktioniert hat.
Bisher habe ich die Form als meine Basis benutzt, ein Fundament, auf dem ich alles aufbaue.
Ok, und jetzt soll dieses Fundament weg, undich soll was anderes hinmodeln.
Nur was und wie?
Ich bitte um dringende Hilfe dabei.
Hier ein par Beispielevon den Dingen, die bisher auf Form1 basieren:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
| procedure TForm1.FormCreate(Sender: TObject);
begin
RS232Activate := False; Form1.RadioButton1.Checked := true;
Schreib_Bool := false;
Warte_Bool0 := false;
Warte_Bool1 := false;
Hilf_Bool1 := false;
Warte_Bool2 := false;
Schreib_Check_Bool0 := false;
Schreib_Check_Bool1 := false;
Warn_Bool01 := false;
end; |
und natürlöich auch die ganze Com-Port-Geschichte:
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
|
procedure TForm1.ApdComPort1TriggerAvail(CP: TObject; Count: Word);
var
I : Word;
C : Char;
S : String;
begin
RS232Activate := True; Timer1.enabled := False; Timer1.enabled := True;
S := '';
for I := 1 to Count do begin C := ApdComPort1.GetChar;
case C of
#0..#31 : S := S + C ; else S := S + C;
end;
end;
tempBuffer := tempBuffer + S; if length(tempBuffer) >= StrtoInt(String_Datenmenge) then
begin
Warte_Bool1 := true;
end;
if tempBuffer = (#6+#48) then
begin
if (Schreib_Bool = false) and (Schreib_Check_Bool0 = false) then
begin
ApdComPort1.OutPut := #02 ; end
else if Schreib_Check_Bool0 = true then begin
Schreib_Check_Bool1 := true; tempBuffer := ''; end
else if Schreib_Bool = true then begin
ApdComPort1.OutPut := #02 + Sende_String;
Schreib_Check_Bool0 := true; Schreib_Bool := false;
tempBuffer := ''; end;
end
else if copy(tempBuffer,1, 1) = (#21) then
begin
balluff_fehler;
ERROR_Handling;
end;
end;
|
Ihr seht, da ist einiges mit drin. Und es läuft auch nur auf meinem Fundament,dem Form, das bisher meine stütze war. Es tut fast weh sie zu entfernen, sie war das beständigste von anfang an und ist gewachsne. Wie die Erde eines Blumengartens, in dem nun die Blumen bleiben sollen, aber die Erde weg muß.
Ok, ich werde sentimental, Verziehung.
Herzlichen Dank und lieben Gruß
Smartie
