AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

queltext kürzen mit schleifen

Ein Thema von xxsasch4xx · begonnen am 27. Sep 2010 · letzter Beitrag vom 28. Sep 2010
Antwort Antwort
Seite 1 von 3  1 23      
xxsasch4xx

Registriert seit: 1. Mär 2010
210 Beiträge
 
#1

queltext kürzen mit schleifen

  Alt 27. Sep 2010, 18:44
Delphi-Version: 5
hallo, ich habe eine frage wie man einen queltext kürzen kann in dem auf einmal 30 edit felder deaktivert werden die durchgehend nummeriert sind also von 1 - 30

ich würde das mit meinem jetztigen wissen jetzt so machen:

Delphi-Quellcode:
edit1.enabled:=false;
...
bis
...
edit30.enabled:=false;
kann man nicht irgentwie eine zähergesteuerte schleife machen die man jedes mal eins hochzählt und dann neben da neben dem edit einfügt?
also so ungefähr

Delphi-Quellcode:
for i:=1 to 30 do
        begin
           edit[i].enabled:=false;
        end;
der syntax ist warscheinlich falsch aber nur vom prinzip her würde ich das lieber so in 4 zeilen machen als 30 mal edit felder zu deaktiveren.

Vielen Dank im Voraus!
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#2

AW: queltext kürzen mit schleifen

  Alt 27. Sep 2010, 18:51
Das Zauberwort heißt FindComponent.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Benutzerbild von stahli
stahli

Registriert seit: 26. Nov 2003
Ort: Halle/Saale
4.343 Beiträge
 
Delphi 11 Alexandria
 
#3

AW: queltext kürzen mit schleifen

  Alt 27. Sep 2010, 18:52
schau mal hier
Stahli
http://www.StahliSoft.de
---
"Jetzt muss ich seh´n, dass ich kein Denkfehler mach...!?" Dittsche (2004)
  Mit Zitat antworten Zitat
Namenloser

Registriert seit: 7. Jun 2006
Ort: Karlsruhe
3.724 Beiträge
 
FreePascal / Lazarus
 
#4

AW: queltext kürzen mit schleifen

  Alt 27. Sep 2010, 18:53
Du kannst entweder Delphi-Referenz durchsuchenFindComponent benutzen, oder du musst selbst ein Array erstellen, das du entsprechend initialisierst:
Delphi-Quellcode:
type
  TForm1 = class(TForm)
    ...
   private
     EditArray: array[0..30] of TEdit;
   end;
...

procedure TForm1.FormCreate(...);
begin
  FEditArray[0] := Edit0;
  FEditArray[1] := Edit1;
  FEditArray[2] := Edit2;
  ...
  FEditArray[30] := Edit30;
end;

...

  for i := 0 to 30 do
    FEditArray[i].Enabled := False;
Kannst es natürlich auch kombinieren:
Delphi-Quellcode:
procedure TForm1.FormCreate(...);
var
  i: integer;
begin
  for i := 0 to 30 do
   FEditArray[i] := FindComponent('Edit'+IntToStr(i)) as TEdit;
end;
Generell ist ein Array vorzuziehen, da bei jedem Aufruf von FindComponent alle Komponenten durchiteriert werden, bis die gesuchte gefunden wird.
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#5

AW: queltext kürzen mit schleifen

  Alt 27. Sep 2010, 18:54
Dann würde ich aber OOP konform eine ObjetList nehmen.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Namenloser

Registriert seit: 7. Jun 2006
Ort: Karlsruhe
3.724 Beiträge
 
FreePascal / Lazarus
 
#6

AW: queltext kürzen mit schleifen

  Alt 27. Sep 2010, 18:58
Naja, wenn man ein neues Delphi mit generischen Listen hat, vielleicht. Ansonsten hätte ich keine Lust nur für sowas extra eine typensichere Liste abzuleiten. Natürlich könnte man stattdessen jedes mal einen Typecast machen, aber sehr sauber ist das auch nicht gerade...
  Mit Zitat antworten Zitat
xxsasch4xx

Registriert seit: 1. Mär 2010
210 Beiträge
 
#7

AW: queltext kürzen mit schleifen

  Alt 27. Sep 2010, 19:22
wenn ich das so mache:

Delphi-Quellcode:
type
  TForm1 = class(TForm)
    ...
   private
     EditArray: array[0..30] of TEdit;
   end;
...

procedure TForm1.FormCreate(...);
begin
  FEditArray[0] := Edit0;
  FEditArray[1] := Edit1;
  FEditArray[2] := Edit2;
  ...
  FEditArray[30] := Edit30;
end;

...

  for i := 0 to 30 do
    FEditArray[i].Enabled := False;
dann habe ich ja trotzdem 30 Zeilen wo ich dem Array die Edit Felder zuweise und dann ist es keine Verkürzung des Quelltextes.

und bei der zweiten Möglichkeit kommt bei mir folgende Fehlermeldung:
undefenierter Bezeichner FEditArray
  Mit Zitat antworten Zitat
Namenloser

Registriert seit: 7. Jun 2006
Ort: Karlsruhe
3.724 Beiträge
 
FreePascal / Lazarus
 
#8

AW: queltext kürzen mit schleifen

  Alt 27. Sep 2010, 19:25
Ja, ich habe in der Deklaration das F vergessen... diente ja aber auch eh nur zu Anschauung. Und ja, du hast in der Version auch 30 Zeilen, aber wenn du an mehreren Stellen drauf zugreifst, ist es trotzdem noch eine Verkürzung (und übersichtlicher). Wenn du noch mehr einsparen willst, kannst du ja die abgewandelte Variante benutzen.
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.616 Beiträge
 
Delphi 12 Athens
 
#9

AW: queltext kürzen mit schleifen

  Alt 27. Sep 2010, 19:26
Das war ja auch ein Tippfehler. In der private-Deklaration fehlt nur das führende F.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
xxsasch4xx

Registriert seit: 1. Mär 2010
210 Beiträge
 
#10

AW: queltext kürzen mit schleifen

  Alt 27. Sep 2010, 19:35
wenn ich den queltext in einen button mache dann geht es. Aber wenn ich es in meine eigene angelegte procedure reinfügen will dann gibt er mir 2 fehlermeldungen aus:

Undefinierter Bezeichner 'Find compenent' und operator ist auf diesen operandentyp nicht anwendbar.
Geht das nicht in einer Procedure oder funktion?
ich brauch das nämlich in mehreren buttons deswegn wär eine procedure sinnvoll
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 3  1 23      


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 23:50 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