Anwendung einer Schleife/arrays

Korni · Hält's aus hier Beiträge: 6

Hallo,

so, ich hab da ein kleines anfängerliches Problem und zwar folgendes

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

edit1.text:='- ';
 edit2.text:='- ';
 edit3.text:='- ';
 edit4.text:='- ';
 edit5.text:='- ';
 edit6.text:='- ';
 edit7.text:='- ';
 edit8.text:='- ';
 edit9.text:='- ';
 edit10.text:='- ';
 edit11.text:='- ';
 edit12.text:='- ';
 edit13.text:='- ';
 edit14.text:='- ';
 edit15.text:='- ';

Ihr seht, etwas unfangreich und ich denke mal, dass man mit hilfe einer Schleife oder eines Arrays diesen Quelltext kürzer hinbekommt oder nicht?!
Ich weiß selber, für manche ist das hier ein Witz, aber meine versuche eine Schleife zu machen, sind irgendwie gescheitert -.-"
Hoffe mir kann dort jmd. helfen.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

Stringlist.add(edit1.text);
  Stringlist.add(edit2.text);
  Stringlist.add(edit3.text);
  Stringlist.add(edit4.text);
  Stringlist.add(edit5.text);
  Stringlist.add(edit6.text);
  Stringlist.add(edit7.text);
  Stringlist.add(edit8.text);
  Stringlist.add(edit9.text);
  Stringlist.add(edit10.text);
  Stringlist.add(edit11.text);
  Stringlist.add(edit12.text);
  Stringlist.add(edit13.text);
  Stringlist.add(edit14.text);
  Stringlist.add(edit15.text);

Da habe ich eigentl. nochmal das gleiche Prob. <.<"

Moderiert von Christian S.: Sonderzeichen aus Titel entfernt
Moderiert von Christian S.: Code- durch Delphi-Tags ersetzt.

Moderiert von Christian S.: Topic aus CLX / Delphi Language (Object-Pascal) verschoben am Fr 29.04.2005 um 13:54

Ehemaliges Mitglied Erhaltene Danke: 1

Das machst du am besten mit Suche in: Delphi-Forum, Delphi-Library

FINDCOMPONENT.

Tobias1 · Beiträge: 454 Win 98, **XP Prof** D3 Prof, **D2005 Prof**

Wenn du einen Array of Tedit machst, kannst du halt nicht mehr die Edit mit der Maus verschieben sondern musst alles programmieren.

_________________
Auch das schlechteste Buch hat seine gute Seite: die letzte. (John Osborne)

Korni · Hält's aus hier Beiträge: 6

ja, okeh, aber kann mir ma viell. einen evtl. Quelltext zur Verfügung stellen, zur veranschaulichung.bitte! ^^

Christian S. · Beiträge: 20451 Erhaltene Danke: 2264 Win 10 C# (VS 2019)

Über den Suchlink, der HanfLord gepostet hat, kommst Du gaantiert zu einer Fülle von Beispielen. Musst halt nur ein paar Threads durchsehen, aber die Frage ist nicht gerade ein Exot. ;-)

_________________
Zwei Worte werden Dir im Leben viele Türen öffnen - "ziehen" und "drücken".

retnyg · Verfasst: Fr 29.04.05 13:17

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm1.Button1Click(Sender: TObject);
var i,anzahlEdits:integer;
    p:Tedit;
begin
 anzahledits:=4;
 for i := 1 to anzahlEdits do begin
 p := tedit(findcomponent('edit'+inttostr(i)));
 p.text:='- '; end;
end;

_________________
es gibt leute, die sind genetisch nicht zum programmieren geschaffen.
in der regel haben diese leute die regel...

Tobias1 · Beiträge: 454 Win 98, **XP Prof** D3 Prof, **D2005 Prof**

markieren

Delphi-Quelltext

1:
2:

var
Editfeld:array[1..20]of TEdit

bei Form-Create:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

for a:=1 to 20 do  begin
Editfeld[a]:=tedit.create(self);
editfeld[a].parent:=self;
editfeld[a].top:=1;
editfeld[a].left:=1;
end;

markieren

Delphi-Quelltext

1:
2:

for a:=1 to 20 do 
editfeld[a].caption:='Hallo';

_________________
Auch das schlechteste Buch hat seine gute Seite: die letzte. (John Osborne)

Korni · Hält's aus hier Beiträge: 6

cool, danke für die Hilfe mit den Editfeldern. Hab auch die Hilfe mit den FindComponent benutzt, stehen wirklich nützliche Tipps und Hilfen drin ^_^v

Jetzt bleibt nur noch das mit der Stringlist Oô
Mal schauen XD~

Korni · Hält's aus hier Beiträge: 6

Hmm...mit der Stringlist ist es wohl auch net gerade einfacher XD~~

Korni · Hält's aus hier Beiträge: 6

*spam* XD~~

Ich habs selber hinbekommen, aber nochmal danke an die anderen, die hier gepostet haben ^0^
*hüpf*
*freu*

Korni · Hält's aus hier Beiträge: 6

Ich habe da nochmal eine Frage und wollte kein neues Thema dafür auf machen.

Ich habe 15 Editfelder für mein Programm . So, nun speicher ich in einer Stringlist die angegebenen Begriffe ab. alles kein Problem. Schön ordentlich speichert er die Begriffe untereinander ab. Nun habe ich ein Memo, der mir die gespeicherten Begriffe anzeigen soll. Klappt ebenfalls, alles kein ding. Doch jetzt möchte ich, dass der mir diese Begriffe wieder in die Editfelder macht. Das ist dann wiederum nicht so einfach X_x"

hat viell. jmd. einen vorschlag? ó.ò

markieren

Delphi-Quelltext

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:

procedure TForm1.Button2Click(Sender: TObject);
 var
 Stringlist: TStringlist;

begin

Stringlist:=TStringlist.create;
StringList.LoadFromFile('Adressen.txt');
    Edit1.Text := StringList.Strings[0];
    Edit2.Text := StringList.Strings[1];
    Edit3.Text := StringList.Strings[2];
    Edit4.Text := StringList.Strings[3];
    Edit5.Text := StringList.Strings[4];
    Edit6.Text := StringList.Strings[5];
    Edit7.Text := StringList.Strings[6];
    Edit8.Text := StringList.Strings[7];
    Edit9.Text := StringList.Strings[8];
    Edit10.Text := StringList.Strings[9];
    Edit11.Text := StringList.Strings[10];
    Edit12.Text := StringList.Strings[11];
    Edit13.Text := StringList.Strings[12];
    Edit14.Text := StringList.Strings[13];
    Edit15.Text := StringList.Strings[14];
    StringList.SaveToFile('Adressen.txt');
  Stringlist.free;
 end;

<.>

Moderiert von raziel: Code- durch Delphi-Tags ersetzt.

Heiko · Beiträge: 3169 Erhaltene Danke: 11

Willst du das aus einer StringList oder aus dem Momo einlesen?

retnyg · Verfasst: Mo 02.05.05 11:21

Korni hat folgendes geschrieben:

X_x
ó.ò
<.>

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure TForm1.Button2Click(Sender: TObject);
 var
 Stringlist: TStringlist;
 i,anzahlEdits:integer;
 p:Tedit;

begin

Stringlist:=TStringlist.create;
StringList.LoadFromFile('Adressen.txt');
 anzahledits:=14;
 for i := 1 to anzahlEdits do begin
 p := tedit(findcomponent('edit'+inttostr(i)));
 p.text:=StringList.Strings[i]; 
 end;
  Stringlist.free;
 end;

_________________
es gibt leute, die sind genetisch nicht zum programmieren geschaffen.
in der regel haben diese leute die regel...

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme