queltext kürzen mit schleifen

[Bomberbb]

Hallo,

nun auch mal was von mir. Dann darfst Du das Array nicht lokal definieren, sonst nusst du jedes mal, wenn Du in die Procedure eintrittst die Edits wieder zuweisen, da die Werte der lokalen Variablen nach dem verlassen der Procedure verloren gehen.
Dann würde ich die Procedure auch als Methode des Formulars definieren, dann hast Du keine Probleme mit der sichtbarkeit von Formularkomponenten. Letzt endlich brauchst Du auch FindComponentnicht, du kennst ja die Editfelder.

Gruß

BBB

Code:

Tform1: Class (Tobject)
  Edit1 : TEdit;
  Edit2 : TEdit;
  Edit3 : TEdit;
  Edit4 : TEdit;
  Edit5 : TEdit;
  Private
    FEditArray : Array[0..4] of TEdit;
    procedure bilderdeaktiveren;
    procedure Formcreate(Sender:TObject);
  Public
end;

procedure TForm1.bilderdeaktiveren;
var
  FEditArray: array[0..4] of TEdit;
  i: integer;
begin
  for i := 0 to 4 do
    FEditArray[i] := FindComponent('Image'+IntToStr(i)) as TEdit;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  FEditArray[1] := Edit1;
  FEditArray[2] := Edit2;
  FEditArray[3] := Edit3;
  FEditArray[4] := Edit4;
  FEditArray[5] := Edit5;
end; 

procedure TForm1.Button1Click(Sender: TObject);
begin
   bilderdeaktiveren;
end;

[xxsasch4xx]

Zitat:

Was mich außerdem verwirrt: Du hast ein Edit mit Namen "Image0"?

ja da habe ich vergessen edit hinzuschreiben
ich brauch diese methode damit ich eigentlich imagefelder deaktviern und aktiviern kann.
aber ich habe gedacht wenn ich es erstmal mit edit feldern mache dann wäre es das selbe
aber jetzt hab ich es mit image feldern gemacht und jetzt geht garnix mehr!!
also es funktioniert irgentwie mit bildern nicht
ich weiss auch nicht warum

es ist doch eigentlich das selbe blos mit image's
das hier ist jetzt mein queltext

Delphi-Quellcode:

(...)
var
 zaehler:integer;
 Bilder: array[1..4] of TImage;
  for zaehler := 1 to 4 do
  begin
    Bilder[zaehler] := FindComponent('image'+IntToStr(i)) as Timage;
    Bilder[zaehler].enabled:=true;
  end;

Syntax fehler gibt es nicht aber er aktiviert die Image's nicht

[MondiBob]

Also 1. is dein Array völlig überflüssig, kannst einfach:
TImage(FindComponent('Image'+IntToStr(i))).Enabled := true; schreiben und 2. sollte das so funktionieren, ansonsten muss der Fehler an einer anderen Stelle sein

[Bomberbb]

wenn Du sie nur einmal aktivieren willst dann reicht im übrigen auch:

Code:

  for zaehler := 1 to 4 do
    TImage( FindComponent('image'+IntToStr(i))).enabled:=true;

Warum das ganze nicht funktioniert, kann ich aus deinem Quelltext nicht erkennen. Was sagt denn der Debugger an der Stelle, wenn du Image1.enabled abfragst?

edit: ok, den ersten Hinweis gabs ja schon...

[xxsasch4xx]

Es funktioniert so ohne array sogar wie bomber. geschrieben hat
Danke.

[xZise]

Zitat von xxsasch4xx:

Es funktioniert so ohne array sogar wie bomber. geschrieben hat
Danke.

Kommt halt immer darauf an was du willst. Wenn du es nur einmal brauchst, dann brauchst du natürlich kein Array. Ansonsten ist es halt sinnvoller weil FindComponent gegenüber ein Array arschlangsam ist.

MfG
Fabian

[alzaimar]

Delphi-Quellcode:

Type
  TMyForm = class (TForm)
  ...
    Function GetEditByIndex(index : Integer) : TEdit;
  protected
    property Edit[index : Integer] : TEdit Read GetEditByindex;
  end;


Function TMyForm.GetEditByIndex(index : Integer) : TEdit;
Begin
  Result := FindComponent(Format('Edit%d',[index])) as TEdit
End;

Da es den Aufrufer nichts angeht, wie ich das löse, verberge ich die Implementierung hinter einem Getter. Außerdem und überhaupt ist es so wenigstens lesbar. Im Getter kann ich immer noch ein Array verwenden, wenn ich mag.

Ich persönlich mag FindComponent nicht, denn wenn ich einmal den Namen meiner Komponente ändere, kompiliert das Programm trotzdem, funktioniert aber nicht mehr. Mit einem Array (Initialwerte zuweisen im FormCreate) gibt es wenigstens einen Syntaxfehler.

[DeddyH]

Genau, außerdem muss man dann die entsprechenden Komponenten durchnummerieren bzw. die automatisch vergebenen Namen belassen. Ich persönlich bekomme immer einen Arkl-Anfall, wenn ich Komponenten mit Namen wie z.B. Edit23 sehe, da sich nicht daraus schließen lässt, welche Daten dahinterstecken.