| Autor |
Beitrag |
Holymoly
Hält's aus hier
Beiträge: 4
Delphi 3 prof,Delphi 2005 prof
|
Verfasst: Mi 04.01.06 12:33
Hallo zusammen.
Habe im Programm 2 EditFelder auf einer Groupbox,weise Edit.text := 'Text' zu,
es gibt keine Fehlermeldung aber auch keine Anzeige im Editfeld ???.
(bin Newbie)
Schon mal Danke
Moderiert von  raziel: Topic aus Delphi Language (Object-Pascal) / CLX verschoben am Mi 04.01.2006 um 11:42
Moderiert von Christian S.: Delphi-Tags hinzugefügt
|
|
Lannes
 
Beiträge: 2352
Erhaltene Danke: 4
Win XP, 95, 3.11, IE6
D3 Prof, D4 Standard, D2005 PE, TurboDelphi, Lazarus, D2010
|
Verfasst: Mi 04.01.06 12:46
Hallo,
erstmal  in der EE.
Der Code ansich ist OK, es muss andere Ursachen haben.
Da brauchen wir mehr Informationen/Code um etwas sagen zu können. _________________ MfG Lannes
(Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )
|
|
frank-wob
Ehemaliges Mitglied
Erhaltene Danke: 1
|
Verfasst: Mi 04.01.06 12:46
Das sollte eigentlich ohne Probleme funktionieren.
Wo, bzw. wann weist du dem Edit Feld den Text zu? Auf Mausklick etc.?
|
|
Holymoly 
Hält's aus hier
Beiträge: 4
Delphi 3 prof,Delphi 2005 prof
|
Verfasst: Mi 04.01.06 13:26
Titel: Edit.Text auf Groupbox
Die Editfelder werden durch eine Timerereignis nach Einlesen durch eine serielle SS gefüllt.
Die Editfelder, die auf dem Formular direkt platziert sind,zeigen auch richtig an.
Schon mal Danke
|
|
Holymoly
Hält's aus hier
Beiträge: 4
Delphi 3 prof,Delphi 2005 prof
|
Verfasst: Mi 04.01.06 22:55
Hier ist der ProgText,die editfelder 4 und 5 liegen auf einer Groupbox,
lege ich die editfelder direkt auf das Formular,ist alles OK
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:
| procedure TForm3.Timer1Timer(Sender: TObject);
var c : string;
i : Integer;
begin
C :='';
InStr:='' ;
repeat
comport1.ReadStr(C,1) ;
until c = 'D' ;
For I := 1 to 32 do
Begin
comport1.ReadStr(C,1);
InStr:= InStr+C;
Edit9.Text:=' '+Copy(InStr,28,3);
Form3.StatusBar1.SimpleText :=' InString: '+InStr ;
End;
ComPort1.ClearBuffer(True,False) ;
If CompareStr(Copy(InStr,31,3),' 1')= 0 then
begin
edit13.Visible := true;
Beep ;
end
else
Begin
edit13.Visible := false;
Edit7.Text:=' '+Copy(InStr,1,3); }
If CompareStr(Copy(InStr,13,3),'FIX')= 0 then
Edit10.Text:=' FIX'
else
Edit10.Text:=' '+Copy(InStr,13,3);
Edit8.Text:=' '+Copy(InStr,7,3);
Edit11.Text:=' '+Copy(InStr,4,3);
Edit12.Text:=' '+Copy(InStr,25,3);
Edit1.Text:=' '+Copy(InStr,16,3);
Edit2.Text:=' '+Copy(InStr,19,3);
Edit3.Text:=' '+Copy(InStr,22,3);
Edit4.Text:=' '+Copy(InStr,10,3); <<<<<<<<<<<<<<<<<<<<<
If CompareStr(Copy(InStr,13,3),'FIX')= 0 then
Edit5.Text:='AHA' <<<<<<<<<<<<<<<<<<<<<<
else
Edit5.Text:=' '+Copy(InStr,13,3);
End;
end; |
MfG
Wilfried
Moderiert von UGrohne: Delphi-Tags hinzugefügt
|
|
Lannes
Beiträge: 2352
Erhaltene Danke: 4
Win XP, 95, 3.11, IE6
D3 Prof, D4 Standard, D2005 PE, TurboDelphi, Lazarus, D2010
|
Verfasst: Do 05.01.06 00:01
Hallo,
| Holymoly hat folgendes geschrieben: | Hier ist der ProgText,die editfelder 4 und 5 liegen auf einer Groupbox,
lege ich die editfelder direkt auf das Formular,ist alles OK |
ist schon seltsam 
Bist Du das schon mal Zeilenweise mit dem Debugger durchgegangen,
1 x mit 1 x ohne Groupbox?
Oder lass Dir in einem zusätzlichen Memo die Werte ausgeben.
Wenn die Variable InStr z.B. nur 9 Zeichen enthält,
gibt Copy(InStr,10,3) Dir einen Leerstring zurück.
Wird der dann ins Edit geschrieben, dann ist es leer.
Ps.: könntest Du Deinen Code formatieren und mit den <span class="inlineSyntax"><span class="codecomment">{PROTECTTAGa4027562b8bc5735fbc27f5b368e1e7f}</span></span> Tags versehen?
Dann kann man ihn besser lesen.  _________________ MfG Lannes
(Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )
|
|
Holymoly
Hält's aus hier
Beiträge: 4
Delphi 3 prof,Delphi 2005 prof
|
Verfasst: Do 05.01.06 09:47
Titel: EditText auf GroupBox
Zu Euren Fragen:
- Der String ist insgesamt 34 Char lang und wird zum Testen von mir durch einen anderen PC erzeugt
- lasse ich die GroupBox weg funktioniert alles wie es soll,sieht mit aber besser aus
- ich habe zum testen auch eine direkte Textzuweisung (Edit.Text := 'Text') ohne Erfolg gemacht.
PS Wie formatiert man denn diesen QuellText so schön??? Danke übrigens dafür
Wilfried
|
|
Lannes
Beiträge: 2352
Erhaltene Danke: 4
Win XP, 95, 3.11, IE6
D3 Prof, D4 Standard, D2005 PE, TurboDelphi, Lazarus, D2010
|
Verfasst: Do 05.01.06 10:17
Hallo,
wenn Du schon hier und in der Delphi-Praxis einen Thread aufmachst,
dann könntest Du wenigstens deine Antworten auf die jeweiligen Beiträge beziehen und nicht einfach Identisches posten.
| Holymoly hat folgendes geschrieben: | | ...PS Wie formatiert man denn diesen QuellText so schön??? ... |
 Die Hilfe-Seite zu BB-Codes
Was hat Dir der Debugger gesagt?
Führst Du noch irgendwelchen anderen Code aus der die Edit-Inhalte oder die GroupBox irgendwie beeinflusst? _________________ MfG Lannes
(Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )
|
|
Kroko
Beiträge: 1284
W98 W2k WXP
Turbo D
|
Verfasst: Do 05.01.06 12:17
_________________ Die F1-Taste steht nicht unter Naturschutz und darf somit regelmäßig und oft benutzt werden! oder Wer lesen kann, ist klar im Vorteil!
|
|
|
Toll