wiederholungen zusammenfassen?

[pilic]

Delphi-Quellcode:

procedure TForm1.Button1Click(...);
var
  i,j,k,l: Integer;
begin
  ...
  DeineProcedure(i,j,k,l);
  ...
end;

procedure TForn1.DeineProcedure(Zahl1,Zahl2,Zahl3,Zahl4: Integer);
begin
  ...
end;

Du rufst die Procedure "DeineProcedure" in der Procedure "Button1Click" auf.

Edit: Dein Ziel ist ja die Anzahl der Zeilen zu reduzieren. Deswegen lagert man die Prozeduren ja aus.

[PaddyMu]

hier der delphi text^^

Delphi-Quellcode:

vielleicht ists jetzt besser^^

[DeddyH]

Im implementation-Teil:

Delphi-Quellcode:

procedure TForm1.Btn1Click(Sender: TObject);          
begin
  //hier der Code von Btn1Click
end;

procedure TForm1.Eintragen(Neue5, Neue6, Neue7, Neue8: integer);
begin
  //hier der Code von Eintragen
end;

[PaddyMu]

so läufts durch aber es erscheint bei '8' nichts neues es bleibt einfach das drin stehn was schon drin steht..

[Garfield]

Delphi-Quellcode:

   private
    { Private-Deklarationen }
    Zahl1, Zahl2, Zahl3, Zahl4, Zahl5, Zahl6, Zahl7, Zahl8, Zahl9, Zahl10,
    Zahl11, Zahl12, Zahl13, Zahl14, Zahl15, Zahl16, Zahl17: integer;
    Zwischenzahl:integer;
    Minuszahl:integer;
    Laenge:integer;
    ClipbrdText:string;
    Text1:string;
    procedure Eintragen(Neue5, Neue6, Neue7, Neue8:integer);
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation
{$R *.DFM}

procedure  TForm1.Eintragen(Neue5, Neue6, Neue7, Neue8: integer);
begin 
  Zahl5:=Neue5;
  Zahl6:=Neue6;
  Zahl7:=Neue7;
  Zahl8:=Neue8;
end;

procedure TForm1.Btn1Click(Sender: TObject);
begin
  if Edit1.Text <> '' then Zahl1:=StrToInt(Edit1.Text);
  if Edit2.Text <> '' then Zahl2:=StrToInt(Edit2.Text);
  if Edit3.Text <> '' then Zahl3:=StrToInt(Edit3.Text);
  if Edit4.Text <> '' then Zahl4:=StrToInt(Edit4.Text);
  if Edit5.Text <> '' then Zahl5:=StrToInt(Edit5.Text);
  if Edit6.Text <> '' then Zahl6:=StrToInt(Edit6.Text);
  if Edit7.Text <> '' then Zahl7:=StrToInt(Edit7.Text);
  if Edit8.Text <> '' then Zahl8:=StrToInt(Edit8.Text);
  if Edit9.Text <> '' then Zahl9:=StrToInt(Edit9.Text);
  if Edit10.Text <> '' then Zahl10:=StrToInt(Edit10.Text);
  if Edit11.Text <> '' then Zahl11:=StrToInt(Edit11.Text);
  if Edit12.Text <> '' then Zahl12:=StrToInt(Edit12.Text);
  if Edit13.Text <> '' then Zahl13:=StrToInt(Edit13.Text);
  if Edit14.Text <> '' then Zahl14:=StrToInt(Edit14.Text);
  if Edit15.Text <> '' then Zahl15:=StrToInt(Edit15.Text);
  if Edit16.Text <> '' then Zahl16:=StrToInt(Edit16.Text);
  if Edit17.Text <> '' then Zahl17:=StrToInt(Edit17.Text);

  Case Zahl17 of 
     8 : Eintragen(255, 0, 0, 0);
     9 : Eintragen(255, 128, 0, 0);
    10 : Eintragen(255, 192, 0, 0);
    11 : Eintragen(255, 224, 0, 0);
    12 : Eintragen(255, 240, 0, 0);
    13 : Eintragen(255, 248, 0, 0);
  end;
end;

Zitat:

Zitat von PaddyMu

so läufts durch aber es erscheint bei '8' nichts neues es bleibt einfach das drin stehn was schon drin steht..

Logisch, was meinst Du was die geschweiften Klammern bedeuten?

:gruebel: Erinnert mich an Tuvok (hat Fragen in Videoforen gestellt).

[PaddyMu]

ah wnderbar nun hab ichs auch verstanden :-D
DANKE!