Edit.Text auf GroupBox

[Holymoly]

Hallo zusammen,
habe 2 editfelder auf ein Groupbox gesetzt und versuche nun mit
edit.text := 'Text' ein Editfeld zu füllen:es gibt keine Fehlermeldung
aber auch keine Anzeige???


Schon mal Danke

[freak4fun]

Hallo :hi:,
zeig mal den Code mit dem du das machst. Bei mir geht das.

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
begin
  Edit2.Text := 'Hallo!';
end;

MfG
freak

[marabu]

Herzlich Willkommen in der Delphi-PRAXiS, Holymoly.

Wie hast du denn die Edit Controls auf die GroupBox gesetzt? In der IDE oder zur Laufzeit? Die GroupBox ist ein Container. Zur Entwurfszeit musst du ihn selektieren, bevor du Controls auf ihm abwerfen kannst. Zur Laufzeit musst du die GroupBox deinem Control als Parent zuweisen.

Neujahrsgrüße vom marabu

[Holymoly]

Hier ist der Prog Code,die Editfelder 4 und 5 liegen auf einer Groupbox,
lege ich die Felder direkt auf das Formular , ist alles OK.
Es kommt aber auch keine Fehlermeldung oder Warnung ???????

Delphi-Quellcode:

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'      {Gantry-End}
          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

[edit=Sharky]Delphi-Tags gesetzt. Mfg, Sharky[/edit]

[Christian18]

hi,

kannst dein code mal bitte in delphi tags setzen??? dann sieht man besser durch.

[Matze]

Hallo,

ich habe das nur grob überflogen. Ist dein InStr auch mind. 16 Zeichen lang, falls beidesmal der else-Zweig durchlaufen werden sollte?

Du kannst testweise ja einmal feste Werte zuweisen. Ich denke, es liegt an den Funktionen "drumherum", dass nichts angezeigt wird.

[ichbins]

Bist du überhaupt sicher, dass der Fehler bei der Zuweisung des Textes zum Edit passiert?

[Holymoly]

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

[jim_raynor]

Sicher, dass du auch das richtige Edit-Feld nimmst? Immerhin kann man bei Edit1, Edit2 ... Edit13 ganz schön durcheinander kommen ;)

Um Delphi-Code zu formatieren musst du diesen in den delphi-Tag einbinden. Klick einfach mal auf Zitat bei deinem Beitrag und dann siehst du es.