wiederholungen zusammenfassen?

[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 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?

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