Edit Felder in einem array zusammenfassen?

[Lati]

Hi
Bin neu in diesem Forum und habe von Delphi momentan nicht sehr viel Ahnung.
Da ich schon ziemlich lange auf der Suche war aber nichts gefunden habe hoffe ich einer von euch kann mir diese Frage beantworten (oder einen link geben wo es erklärt ist) .

"Problem"

angenommen man hat ein array of string und will diesem editfelder zuweisen

array[1]:=edit1.text;
array[2]:=edit2.text;
.
.
.
usw.

wäre es sehr hilfreich wenn man das in einer schleife machen könnte

for i:=1 to 10 do
array[i]:=edit[i].text;

(so funktioniert das natürlich nicht.)
Kann mir einer von euch sagen wie man das hinbekommen könnte?

vielleicht könnte es ja so gehen

for..
array[i]:=TTExt(i)

wobei TText zeiger auf die einzelnen Edit felder hat nur bekomme ich es nicht hin =(

[Speedy1505]

vielleicht hilft das weiter ....

Code:

var: FEdit : array[0..35]of TEdit;
     I     : Byte;
begin
 for I := 0 to 35 do
  begin
   FEdit := TEdit.Create(Self);
   FEdit[I].Name := 'Edit' + IntToStr(I);
   FEdit[I].Left := .....;
   ....
   FEdit[I].Text := FEdit[I].Name;
  end;
end;

das sollte dein problem lösen

[Lati]

Diesen Ansatz hatte ich auch nur steigt der Compiler mit der Fehlermeldung array und tedit sind incompatible typen aus
Funktioniert es denn bei dir?
Wenn ja könntest du mir dann nen bsp. quelltext schicken (mit compiler einstellungen [ strg + O, O im quelltext]).
[e-mail] =)

[Speedy1505]

das ist aus meinem CqellCode:

Global:

Code:

 const Anzahl = 57;
 var
  SpinEdit          : array[1..Anzahl] of TSpinEdit;
  CheckBox          : array[1..Anzahl] of TCheckBox;
  LabelFeld         : array[1..Anzahl] of TLabel;

Procedure im Programm:

Code:

  procedure Komponenten_erstellen;
   var I : Byte;
    begin
     for I := 1 to Anzahl do
      begin
       SpinEdit[I] := TSpinEdit.Create(Application);
       with SpinEdit[I] do
        begin
         Parent := TabControl1;
         case I of
          1 ..19 : begin
                    Left := 7;
                    Top := 45 + ((I - 1) * 25);
                   end;
          20..38 : begin
                    Left := 270;
                    Top := 45 + ((I - 20) * 25);
                   end;
          39..57 : begin
                    Left := 533;
                    Top := 45 + ((I - 39) * 25);
                   end;
         end;
         Width := 36;
         AutoSize := False;
         MaxValue := 99;
         MaxLength := 2;
         Name := 'SpinEdit' + IntToStr(I);
         OnChange := SpinChange;
         Tag := I;
        end;     // Ende von SpinEdit
       CheckBox[I] := TCheckBox.Create(Application);
       with CheckBox[I] do
        begin
         Parent := TabControl1;
         case I of
          1 ..19 : begin
                    Left := 48;
                    Top := 47 + ((I - 1) * 25);
                   end;
          20..38 : begin
                    Left := 311;
                    Top := 47 + ((I - 20) * 25);
                   end;
          39..57 : begin
                    Left := 574;
                    Top := 47 + ((I - 39) * 25);
                   end;
         end;
         Width := 165;
         AutoSize := False;
         Name := 'CheckBox' + IntToStr(I);
         Caption := '';
         ShowHint := True;
         PopupMenu := PopupMenu1;
         OnClick := CheckBoxClick;
         OnContextPopup := CheckBox_Kontext;
         Tag := I;
        end;     // Ende von CheckBox
       LabelFeld[I] := TLabel.Create(Application);
       with LabelFeld[I] do
        begin
         Parent := TabControl1;
         case I of
          1 ..19 : begin
                    Left := 216;
                    Top := 50 + ((I - 1) * 25);
                   end;
          20..38 : begin
                    Left := 479;
                    Top := 50 + ((I - 20) * 25);
                   end;
          39..57 : begin
                    Left := 742;
                    Top := 50 + ((I - 39) * 25);
                   end;
         end;
         Width := 42;
         AutoSize := False;
         Name := 'Label' + IntToStr(I);
         Caption := '';
         Alignment := taRightJustify;
        end;     // Ende von Label
      end;
    end;     // Komponenten erstellen

den Quellcode hab ich aus meiner Einkaufsliste kopiert - was ich hier mit SpinEdit und CO mache, geht Problemlos auch mit TEdit .....

hoffe, es geht - bei mir geht es doch auch ....

[Lati]

Hmpf.... also mit TEdit funzt es einfach net... owbwohl die Fehlermeldung vonwegen incompatible doch garnicht kommen dürfte denn das array ist ja vom typ tedit.........
Naja dennoch danke für die Hilfe hab was dazu gelernt

[Speedy1505]

Schau nächste Freitag noch mal rein -- bis dahin hab ich dein Problem gelöst -- mit Quelltext

Wundere mich nur, das es nicht geht -- .....

[Lati]

Hat sich erledigt nach etwas dummen drüber lesen.... naja hab ich gesehen das am anfang ein [i] fehlte sprich er dem ganzen array das tedit zugewisesen hat ... also danke es geht wunderbar

( FEdit := TEdit.Create(Self); <---- FEdit[i] := TEdit.Create(Self); )