AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Groupbox.Caption Problem

Ein Thema von fl63 · begonnen am 16. Aug 2008 · letzter Beitrag vom 17. Aug 2008
Antwort Antwort
fl63

Registriert seit: 30. Mär 2008
124 Beiträge
 
#1

Groupbox.Caption Problem

  Alt 16. Aug 2008, 13:26
Hallo DPler!

Ich habe ein Problem.

Delphi-Quellcode:
procedure TForm1.speichernClick(Sender: TObject);
begin
  RichEdit1.Lines.LoadFromFile('WareA.txt');
  RichEdit1.Lines.Append(DateToStr(DateTimePicker1.Date)+#9+Edit1.Text+#9+Edit2.Text);
  RichEdit1.Lines.SaveToFile('WareA.txt');
  RichEdit1.Clear;
  RichEdit1.Lines.LoadFromFile('WareB.txt');
  RichEdit1.Lines.Append(DateToStr(DateTimePicker1.Date)+#9+Edit3.Text+#9+Edit4.Text);
  RichEdit1.Lines.SaveToFile('WareB.txt');
  RichEdit1.Clear;
 end;
Die editboxen 1+2 sowie 3+4 befinden sich in Groupboxen 1 bzw. 2.
Die Caption Eigenschaft der jeweiligen Groupbox heißt WareA.txt bzw.WareB.txt.

Mein Ziel ist:
RichEdit1.Lines.LoadfromFile(Groupbox1.Caption)
RichEdit1.Lines.Append.....
RichEdit1.Lines.SaveToFile(Groupbox1.Caption)

auf diese Weise erhoffe ich mir eine Vereinfachung(for i=1 to Groupbox(i).Caption).

Bitte helft einem blutigen Anfänger!!
  Mit Zitat antworten Zitat
16. Aug 2008, 13:28
Dieses Thema wurde von "Sharky" von "Windows 9x / ME / 2000 / XP / 2003 / Vista" nach "VCL / WinForms / Controls" verschoben.
Auch einem blutigen Anfänger müsste klar sein das dies keine Frage zu Window ist
Benutzerbild von DGL-luke
DGL-luke

Registriert seit: 1. Apr 2005
Ort: Bad Tölz
4.149 Beiträge
 
Delphi 2006 Professional
 
#3

Re: Groupbox.Caption Problem

  Alt 16. Aug 2008, 14:49
Wenn du VCL-Komponenten indiziert ansprechen willst, bleibt dir meistens nix übrig als sie per Hand in ein Array zu packen. Man kann sie auch über Form.Components zusammensuchen, das ist aber weniger performant und meistens komplizierter.

So in der Art kann man es machen:

Delphi-Quellcode:
procedure UpdateRTF;
var GoupBoxes: array of TGroupBox;
var i: Integer;
begin
Setlength(GroupBoxes, n); //n durch Anzahl deiner Groupboxen ersetzen
GroupBoxes[0] = Groupbox1;
GroupBoxes[1] = Groupbox2;
...
GroupBoxes[n] = Groupbox/n+1/;

for i := 0 to high(GroupBoxes) do
begin
  RichEdit1.Lines.LoadFromFile(GroupBoxes[i].Caption);
  RichEdit1.Lines.Append(DateToStr(DateTimePicker1.Date)+#9+Edit3.Text+#9+Edit4.Text);
  RichEdit1.Lines.SaveToFile(GroupBoxes[i].Caption);
end;
end;
Lukas Erlacher
Suche Grafiktablett. Spenden/Gebrauchtangebote willkommen.
Gotteskrieger gesucht!
For it is the chief characteristic of the religion of science that it works. - Isaac Asimov, Foundation I, Buch 1
  Mit Zitat antworten Zitat
fl63

Registriert seit: 30. Mär 2008
124 Beiträge
 
#4

Re: Groupbox.Caption Problem

  Alt 17. Aug 2008, 12:32
Danke! Werd ich gleich mal ausprobieren.
  Mit Zitat antworten Zitat
Benutzerbild von rollstuhlfahrer
rollstuhlfahrer

Registriert seit: 1. Aug 2007
Ort: Ludwigshafen am Rhein
1.529 Beiträge
 
Delphi 7 Professional
 
#5

Re: Groupbox.Caption Problem

  Alt 17. Aug 2008, 13:36
HI,

warum so kompliziert?? Da du die Groupboxen höchstwarscheinlich mit dem Designer erzeugt hast, reicht ein einfacher Aufruf von FindComponent. Das ganze sieht dann etwa so aus:

Delphi-Quellcode:
procedure TForm1.Speichern;
var Text: String;
i: Integer;
begin
  for i := 1 to 2 do
  begin
    RichEdit.Lines.LoadFromFile((FindComponent('Groupbox' + IntToStr(i)) AS TGroupbox).Caption);
    //...
    RichEdit.Lines.SaveToFile((FindComponent('Groupbox' + IntToStr(i)) AS TGroupbox).Caption);
    RichEdit.Clear;
  end;
end;
Bernhard

EDIT: Clear vergessen, sonst gehts net
Bernhard
Iliacos intra muros peccatur et extra!
  Mit Zitat antworten Zitat
Benutzerbild von DGL-luke
DGL-luke

Registriert seit: 1. Apr 2005
Ort: Bad Tölz
4.149 Beiträge
 
Delphi 2006 Professional
 
#6

Re: Groupbox.Caption Problem

  Alt 17. Aug 2008, 14:34
o.O

In jedem Schleifenaufruf FindComponent... sowas sollte man sich garnicht angewöhnen. Das tötet die Performance. Wenn dann gleich Form.Components[] durchiterieren und alle gefundenen GroupBoxen in eine Liste schmeißen.
Lukas Erlacher
Suche Grafiktablett. Spenden/Gebrauchtangebote willkommen.
Gotteskrieger gesucht!
For it is the chief characteristic of the religion of science that it works. - Isaac Asimov, Foundation I, Buch 1
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 01:49 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz