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!!