Variablen Massenhaft definieren

[Kegasetu]

Ich bedanke mich eure Hilfe. Ich nehme mir jetzt mal etwas Zeit zum experimentieren und melde mich später oder morgen nochmal.

[Kegasetu]

In mühefolster Kleinarbeit enstand in den letzten Stunden ein Gemisch aus vielen Arrays (ca. 100) und Variablen (ca. 150).
Aber es funktioniert.

Die Idee mit der Liste war gut, ich habe mich für ein Stringgrid entschieden.

[holger_barntrup]

Zeig doch mal wie du das gemacht hast bitte.

[Kegasetu]

Das ist der Befehl zum speichern

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
var i,t,k: integer;
begin

lab5[Combobox1.ItemIndex*ComboBox1.ItemIndex]:= 'Morsch';           //für später

if ((ComboBox1.ItemIndex = 0) and (ComboBox2.ItemIndex = 0)) then
begin
 mb1a1 := strtofloat(edit1.Text);
  l1a1 := strtofloat(edit2.Text);
ewb1a1 := strtofloat(edit3.Text);
k:= 1;
  for i := 1 to 4 do
      for t := 1 to 13 do
      begin
          b1a1[k] := strtofloat(stringgrid1.Cells[i,t]);
          bz1a1[k] := stringgrid1.Cells[0,t];
        k:=k+1;
      end;
end;

if ((ComboBox1.ItemIndex = 1) and (ComboBox2.ItemIndex = 0)) then
begin
 mb2a1 := strtofloat(edit1.Text);
  l2a1 := strtofloat(edit2.Text);
ewb2a1 := strtofloat(edit3.Text);
k:= 1;
  for i := 1 to 4 do
      for t := 1 to 13 do
      begin
          b2a1[k] := strtofloat(stringgrid1.Cells[i,t]);
          bz2a1[k] := stringgrid1.Cells[0,t];
        k:=k+1;
      end;
end;

if ((ComboBox1.ItemIndex = 2) and (ComboBox2.ItemIndex = 0)) then
begin
 mb3a1 := strtofloat(edit1.Text);
  l3a1 := strtofloat(edit2.Text);
ewb3a1 := strtofloat(edit3.Text);
k:= 1;
  for i := 1 to 4 do
      for t := 1 to 13 do
      begin
          b3a1[k] := strtofloat(stringgrid1.Cells[i,t]);
          bz3a1[k] := stringgrid1.Cells[0,t];
        k:=k+1;
      end;
end;

if ((ComboBox1.ItemIndex = 3) and (ComboBox2.ItemIndex = 0)) then
begin
 mb4a1 := strtofloat(edit1.Text);
  l4a1 := strtofloat(edit2.Text);
ewb4a1 := strtofloat(edit3.Text);
k:= 1;
  for i := 1 to 4 do
      for t := 1 to 13 do
      begin
          b4a1[k] := strtofloat(stringgrid1.Cells[i,t]);
          bz4a1[k] := stringgrid1.Cells[0,t];
        k:=k+1;
      end;
end;

if ((ComboBox1.ItemIndex = 4) and (ComboBox2.ItemIndex = 0)) then
begin
 mb5a1 := strtofloat(edit1.Text);
  l5a1 := strtofloat(edit2.Text);
ewb5a1 := strtofloat(edit3.Text);
k:= 1;
  for i := 1 to 4 do
      for t := 1 to 13 do
      begin
          b5a1[k] := strtofloat(stringgrid1.Cells[i,t]);
          bz5a1[k] := stringgrid1.Cells[0,t];
        k:=k+1;
      end;
end;

if ((ComboBox1.ItemIndex = 5) and (ComboBox2.ItemIndex = 0)) then
begin
 mb6a1 := strtofloat(edit1.Text);
  l6a1 := strtofloat(edit2.Text);
ewb6a1 := strtofloat(edit3.Text);
k:= 1;
  for i := 1 to 4 do
      for t := 1 to 13 do
      begin
          b6a1[k] := strtofloat(stringgrid1.Cells[i,t]);
          bz6a1[k] := stringgrid1.Cells[0,t];
        k:=k+1;
      end;
end;

if ((ComboBox1.ItemIndex = 6) and (ComboBox2.ItemIndex = 0)) then
begin
 mb7a1 := strtofloat(edit1.Text);
  l7a1 := strtofloat(edit2.Text);
ewb7a1 := strtofloat(edit3.Text);
k:= 1;
  for i := 1 to 4 do
      for t := 1 to 13 do
      begin
          b7a1[k] := strtofloat(stringgrid1.Cells[i,t]);
          bz7a1[k] := stringgrid1.Cells[0,t];
        k:=k+1;
      end;
end;

if ((ComboBox1.ItemIndex = 7) and (ComboBox2.ItemIndex = 0)) then
begin
 mb8a1 := strtofloat(edit1.Text);
  l8a1 := strtofloat(edit2.Text);
ewb8a1 := strtofloat(edit3.Text);
k:= 1;
  for i := 1 to 4 do
      for t := 1 to 13 do
      begin
          b8a1[k] := strtofloat(stringgrid1.Cells[i,t]);
          bz8a1[k] := stringgrid1.Cells[0,t];
        k:=k+1;
      end;
end;

if ((ComboBox1.ItemIndex = 8) and (ComboBox2.ItemIndex = 0)) then
begin
 mb9a1 := strtofloat(edit1.Text);
  l9a1 := strtofloat(edit2.Text);
ewb9a1 := strtofloat(edit3.Text);
k:= 1;
  for i := 1 to 4 do
      for t := 1 to 13 do
      begin
          b9a1[k] := strtofloat(stringgrid1.Cells[i,t]);
          bz9a1[k] := stringgrid1.Cells[0,t];
        k:=k+1;
      end;
end;

if ((ComboBox1.ItemIndex = 9) and (ComboBox2.ItemIndex = 0)) then
begin
 mb10a1 := strtofloat(edit1.Text);
  l10a1 := strtofloat(edit2.Text);
ewb10a1 := strtofloat(edit3.Text);
k:= 1;
  for i := 1 to 4 do
      for t := 1 to 13 do
      begin
          b10a1[k] := strtofloat(stringgrid1.Cells[i,t]);
          bz10a1[k] := stringgrid1.Cells[0,t];
        k:=k+1;
      end;
end;

if ((ComboBox1.ItemIndex = 0) and (ComboBox2.ItemIndex = 1)) then
begin
 mb1a2 := strtofloat(edit1.Text);
  l1a2 := strtofloat(edit2.Text);
ewb1a2 := strtofloat(edit3.Text);
k:= 1;
  for i := 1 to 4 do
      for t := 1 to 13 do
      begin
          b1a2[k] := strtofloat(stringgrid1.Cells[i,t]);
          bz1a2[k] := stringgrid1.Cells[0,t];
        k:=k+1;
      end;
end;

if ((ComboBox1.ItemIndex = 1) and (ComboBox2.ItemIndex = 1)) then
begin
 mb2a2 := strtofloat(edit1.Text);
  l2a2 := strtofloat(edit2.Text);
ewb2a2 := strtofloat(edit3.Text);
k:= 1;
  for i := 1 to 4 do
      for t := 1 to 13 do
      begin
          b2a2[k] := strtofloat(stringgrid1.Cells[i,t]);
          bz2a2[k] := stringgrid1.Cells[0,t];
        k:=k+1;
      end;
end;

if ((ComboBox1.ItemIndex = 2) and (ComboBox2.ItemIndex = 1)) then
begin
 mb3a2 := strtofloat(edit1.Text);
  l3a2 := strtofloat(edit2.Text);
ewb3a2 := strtofloat(edit3.Text);
k:= 1;
  for i := 1 to 4 do
      for t := 1 to 13 do
      begin
          b3a2[k] := strtofloat(stringgrid1.Cells[i,t]);
          bz3a2[k] := stringgrid1.Cells[0,t];
        k:=k+1;
      end;
end;

if ((ComboBox1.ItemIndex = 3) and (ComboBox2.ItemIndex = 1)) then
begin
 mb4a2 := strtofloat(edit1.Text);
  l4a2 := strtofloat(edit2.Text);
ewb4a2 := strtofloat(edit3.Text);
k:= 1;
  for i := 1 to 4 do
      for t := 1 to 13 do
      begin
          b4a2[k] := strtofloat(stringgrid1.Cells[i,t]);
          bz4a2[k] := stringgrid1.Cells[0,t];
        k:=k+1;
      end;
end;

if ((ComboBox1.ItemIndex = 4) and (ComboBox2.ItemIndex = 1)) then
begin
 mb5a2 := strtofloat(edit1.Text);
  l5a2 := strtofloat(edit2.Text);
ewb5a2 := strtofloat(edit3.Text);
k:= 1;
  for i := 1 to 4 do
      for t := 1 to 13 do
      begin
          b5a2[k] := strtofloat(stringgrid1.Cells[i,t]);
          bz5a2[k] := stringgrid1.Cells[0,t];
        k:=k+1;
      end;
end;

if ((ComboBox1.ItemIndex = 5) and (ComboBox2.ItemIndex = 1)) then
begin
 mb6a2 := strtofloat(edit1.Text);
  l6a2 := strtofloat(edit2.Text);
ewb6a2 := strtofloat(edit3.Text);
k:= 1;
  for i := 1 to 4 do
      for t := 1 to 13 do
      begin
          b6a2[k] := strtofloat(stringgrid1.Cells[i,t]);
          bz6a2[k] := stringgrid1.Cells[0,t];
        k:=k+1;
      end;
end;

if ((ComboBox1.ItemIndex = 6) and (ComboBox2.ItemIndex = 1)) then
begin
 mb7a2 := strtofloat(edit1.Text);
  l7a2 := strtofloat(edit2.Text);
ewb7a2 := strtofloat(edit3.Text);
k:= 1;
  for i := 1 to 4 do
      for t := 1 to 13 do
      begin
          b7a2[k] := strtofloat(stringgrid1.Cells[i,t]);
          bz7a2[k] := stringgrid1.Cells[0,t];
        k:=k+1;
      end;
end;

if ((ComboBox1.ItemIndex = 7) and (ComboBox2.ItemIndex = 1)) then
begin
 mb8a2 := strtofloat(edit1.Text);
  l8a2 := strtofloat(edit2.Text);
ewb8a2 := strtofloat(edit3.Text);
k:= 1;
  for i := 1 to 4 do
      for t := 1 to 13 do
      begin
          b8a2[k] := strtofloat(stringgrid1.Cells[i,t]);
          bz8a2[k] := stringgrid1.Cells[0,t];
        k:=k+1;
      end;
end;

if ((ComboBox1.ItemIndex = 8) and (ComboBox2.ItemIndex = 1)) then
begin
 mb9a2 := strtofloat(edit1.Text);
  l9a2 := strtofloat(edit2.Text);
ewb9a2 := strtofloat(edit3.Text);
k:= 1;
  for i := 1 to 4 do
      for t := 1 to 13 do
      begin
          b9a2[k] := strtofloat(stringgrid1.Cells[i,t]);
          bz9a2[k] := stringgrid1.Cells[0,t];
        k:=k+1;
      end;
end;

if ((ComboBox1.ItemIndex = 9) and (ComboBox2.ItemIndex = 1)) then
begin
 mb10a2 := strtofloat(edit1.Text);
  l10a2 := strtofloat(edit2.Text);
ewb10a2 := strtofloat(edit3.Text);
k:= 1;
  for i := 1 to 4 do
      for t := 1 to 13 do
      begin
          b10a2[k] := strtofloat(stringgrid1.Cells[i,t]);
          bz10a2[k] := stringgrid1.Cells[0,t];
        k:=k+1;
      end;
end;
if ((ComboBox1.ItemIndex = 0) and (ComboBox2.ItemIndex = 2)) then
begin
 mb1a3 := strtofloat(edit1.Text);
  l1a3 := strtofloat(edit2.Text);
ewb1a3 := strtofloat(edit3.Text);
k:= 1;
  for i := 1 to 4 do
      for t := 1 to 13 do
      begin
          b1a3[k] := strtofloat(stringgrid1.Cells[i,t]);
          bz1a3[k] := stringgrid1.Cells[0,t];
        k:=k+1;
      end;
end;

if ((ComboBox1.ItemIndex = 1) and (ComboBox2.ItemIndex = 2)) then
begin
 mb2a3 := strtofloat(edit1.Text);
  l2a3 := strtofloat(edit2.Text);
ewb2a3 := strtofloat(edit3.Text);
k:= 1;
  for i := 1 to 4 do
      for t := 1 to 13 do
      begin
          b2a3[k] := strtofloat(stringgrid1.Cells[i,t]);
          bz2a3[k] := stringgrid1.Cells[0,t];
        k:=k+1;
      end;
end;

if ((ComboBox1.ItemIndex = 2) and (ComboBox2.ItemIndex = 2)) then
begin
 mb3a3 := strtofloat(edit1.Text);
  l3a3 := strtofloat(edit2.Text);
ewb3a3 := strtofloat(edit3.Text);
k:= 1;
  for i := 1 to 4 do
      for t := 1 to 13 do
      begin
          b3a3[k] := strtofloat(stringgrid1.Cells[i,t]);
          bz3a3[k] := stringgrid1.Cells[0,t];
        k:=k+1;
      end;
end;

if ((ComboBox1.ItemIndex = 3) and (ComboBox2.ItemIndex = 2)) then
begin
 mb4a3 := strtofloat(edit1.Text);
  l4a3 := strtofloat(edit2.Text);
ewb4a3 := strtofloat(edit3.Text);
k:= 1;
  for i := 1 to 4 do
      for t := 1 to 13 do
      begin
          b4a3[k] := strtofloat(stringgrid1.Cells[i,t]);
          bz4a3[k] := stringgrid1.Cells[0,t];
        k:=k+1;
      end;
end;

if ((ComboBox1.ItemIndex = 4) and (ComboBox2.ItemIndex = 2)) then
begin
 mb5a3 := strtofloat(edit1.Text);
  l5a3 := strtofloat(edit2.Text);
ewb5a3 := strtofloat(edit3.Text);
k:= 1;
  for i := 1 to 4 do
      for t := 1 to 13 do
      begin
          b5a3[k] := strtofloat(stringgrid1.Cells[i,t]);
          bz5a3[k] := stringgrid1.Cells[0,t];
        k:=k+1;
      end;
end;

if ((ComboBox1.ItemIndex = 5) and (ComboBox2.ItemIndex = 2)) then
begin
 mb6a3 := strtofloat(edit1.Text);
  l6a3 := strtofloat(edit2.Text);
ewb6a3 := strtofloat(edit3.Text);
k:= 1;
  for i := 1 to 4 do
      for t := 1 to 13 do
      begin
          b6a3[k] := strtofloat(stringgrid1.Cells[i,t]);
          bz6a3[k] := stringgrid1.Cells[0,t];
        k:=k+1;
      end;
end;

if ((ComboBox1.ItemIndex = 6) and (ComboBox2.ItemIndex = 2)) then
begin
 mb7a3 := strtofloat(edit1.Text);
  l7a3 := strtofloat(edit2.Text);
ewb7a3 := strtofloat(edit3.Text);
k:= 1;
  for i := 1 to 4 do
      for t := 1 to 13 do
      begin
          b7a3[k] := strtofloat(stringgrid1.Cells[i,t]);
          bz7a3[k] := stringgrid1.Cells[0,t];
        k:=k+1;
      end;
end;

if ((ComboBox1.ItemIndex = 7) and (ComboBox2.ItemIndex = 2)) then
begin
 mb8a3 := strtofloat(edit1.Text);
  l8a3 := strtofloat(edit2.Text);
ewb8a3 := strtofloat(edit3.Text);
k:= 1;
  for i := 1 to 4 do
      for t := 1 to 13 do
      begin
          b8a3[k] := strtofloat(stringgrid1.Cells[i,t]);
          bz8a3[k] := stringgrid1.Cells[0,t];
        k:=k+1;
      end;
end;

if ((ComboBox1.ItemIndex = 8) and (ComboBox2.ItemIndex = 2)) then
begin
 mb9a3 := strtofloat(edit1.Text);
  l9a3 := strtofloat(edit2.Text);
ewb9a3 := strtofloat(edit3.Text);
k:= 1;
  for i := 1 to 4 do
      for t := 1 to 13 do
      begin
          b9a3[k] := strtofloat(stringgrid1.Cells[i,t]);
          bz9a3[k] := stringgrid1.Cells[0,t];
        k:=k+1;
      end;
end;

if ((ComboBox1.ItemIndex = 9) and (ComboBox2.ItemIndex = 2)) then
begin
 mb10a3 := strtofloat(edit1.Text);
  l10a3 := strtofloat(edit2.Text);
ewb10a3 := strtofloat(edit3.Text);
k:= 1;
  for i := 1 to 4 do
      for t := 1 to 13 do
      begin
          b10a3[k] := strtofloat(stringgrid1.Cells[i,t]);
          bz10a3[k] := stringgrid1.Cells[0,t];
        k:=k+1;
      end;
end;
if ((ComboBox1.ItemIndex = 0) and (ComboBox2.ItemIndex = 3)) then
begin
 mb1a4 := strtofloat(edit1.Text);
  l1a4 := strtofloat(edit2.Text);
ewb1a4 := strtofloat(edit3.Text);
k:= 1;
  for i := 1 to 4 do
      for t := 1 to 13 do
      begin
          b1a4[k] := strtofloat(stringgrid1.Cells[i,t]);
          bz1a4[k] := stringgrid1.Cells[0,t];
        k:=k+1;
      end;
end;

if ((ComboBox1.ItemIndex = 1) and (ComboBox2.ItemIndex = 3)) then
begin
 mb2a4 := strtofloat(edit1.Text);
  l2a4 := strtofloat(edit2.Text);
ewb2a4 := strtofloat(edit3.Text);
k:= 1;
  for i := 1 to 4 do
      for t := 1 to 13 do
      begin
          b2a4[k] := strtofloat(stringgrid1.Cells[i,t]);
          bz2a4[k] := stringgrid1.Cells[0,t];
        k:=k+1;
      end;
end;

if ((ComboBox1.ItemIndex = 2) and (ComboBox2.ItemIndex = 3)) then
begin
 mb3a4 := strtofloat(edit1.Text);
  l3a4 := strtofloat(edit2.Text);
ewb3a4 := strtofloat(edit3.Text);
k:= 1;
  for i := 1 to 4 do
      for t := 1 to 13 do
      begin
          b3a4[k] := strtofloat(stringgrid1.Cells[i,t]);
          bz3a4[k] := stringgrid1.Cells[0,t];
        k:=k+1;
      end;
end;

if ((ComboBox1.ItemIndex = 3) and (ComboBox2.ItemIndex = 3)) then
begin
 mb4a4 := strtofloat(edit1.Text);
  l4a4 := strtofloat(edit2.Text);
ewb4a4 := strtofloat(edit3.Text);
k:= 1;
  for i := 1 to 4 do
      for t := 1 to 13 do
      begin
          b4a4[k] := strtofloat(stringgrid1.Cells[i,t]);
          bz4a4[k] := stringgrid1.Cells[0,t];
        k:=k+1;
      end;
end;

if ((ComboBox1.ItemIndex = 4) and (ComboBox2.ItemIndex = 3)) then
begin
 mb5a4 := strtofloat(edit1.Text);
  l5a4 := strtofloat(edit2.Text);
ewb5a4 := strtofloat(edit3.Text);
k:= 1;
  for i := 1 to 4 do
      for t := 1 to 13 do
      begin
          b5a4[k] := strtofloat(stringgrid1.Cells[i,t]);
          bz5a4[k] := stringgrid1.Cells[0,t];
        k:=k+1;
      end;
end;

if ((ComboBox1.ItemIndex = 5) and (ComboBox2.ItemIndex = 3)) then
begin
 mb6a4 := strtofloat(edit1.Text);
  l6a4 := strtofloat(edit2.Text);
ewb6a4 := strtofloat(edit3.Text);
k:= 1;
  for i := 1 to 4 do
      for t := 1 to 13 do
      begin
          b6a4[k] := strtofloat(stringgrid1.Cells[i,t]);
          bz6a4[k] := stringgrid1.Cells[0,t];
        k:=k+1;
      end;
end;

if ((ComboBox1.ItemIndex = 6) and (ComboBox2.ItemIndex = 3)) then
begin
 mb7a4 := strtofloat(edit1.Text);
  l7a4 := strtofloat(edit2.Text);
ewb7a4 := strtofloat(edit3.Text);
k:= 1;
  for i := 1 to 4 do
      for t := 1 to 13 do
      begin
          b7a4[k] := strtofloat(stringgrid1.Cells[i,t]);
          bz7a4[k] := stringgrid1.Cells[0,t];
        k:=k+1;
      end;
end;

if ((ComboBox1.ItemIndex = 7) and (ComboBox2.ItemIndex = 3)) then
begin
 mb8a4 := strtofloat(edit1.Text);
  l8a4 := strtofloat(edit2.Text);
ewb8a4 := strtofloat(edit3.Text);
k:= 1;
  for i := 1 to 4 do
      for t := 1 to 13 do
      begin
          b8a4[k] := strtofloat(stringgrid1.Cells[i,t]);
          bz8a4[k] := stringgrid1.Cells[0,t];
        k:=k+1;
      end;
end;

if ((ComboBox1.ItemIndex = 8) and (ComboBox2.ItemIndex = 3)) then
begin
 mb9a4 := strtofloat(edit1.Text);
  l9a4 := strtofloat(edit2.Text);
ewb9a4 := strtofloat(edit3.Text);
k:= 1;
  for i := 1 to 4 do
      for t := 1 to 13 do
      begin
          b9a4[k] := strtofloat(stringgrid1.Cells[i,t]);
          bz9a4[k] := stringgrid1.Cells[0,t];
        k:=k+1;
      end;
end;

if ((ComboBox1.ItemIndex = 9) and (ComboBox2.ItemIndex = 3)) then
begin
 mb10a4 := strtofloat(edit1.Text);
  l10a4 := strtofloat(edit2.Text);
ewb10a4 := strtofloat(edit3.Text);
k:= 1;
  for i := 1 to 4 do
      for t := 1 to 13 do
      begin
          b10a4[k] := strtofloat(stringgrid1.Cells[i,t]);
          bz10a4[k] := stringgrid1.Cells[0,t];
        k:=k+1;
      end;
end;


end;

[Jumpy]

Wenn mb,l,ewb als 2-dimensionale Arrays angelegt wären, könnte man schreiben:

Delphi-Quellcode:

 mb[ComboBox1.ItemIndex,ComboBox2.ItemIndex] := strtofloat(edit1.Text);
 l[ComboBox1.ItemIndex,ComboBox2.ItemIndex] := strtofloat(edit2.Text);
 ewb[ComboBox1.ItemIndex,ComboBox2.ItemIndex] := strtofloat(edit3.Text);

Wenn dann b und bz 4-dimensionale Array wären und man die Schleifenreihenfolge umdreht könnte man k weglassen und schreiben

Delphi-Quellcode:

  for t := 1 to 13 do
    begin
    bz[ComboBox1.ItemIndex,ComboBox2.ItemIndex,0,t] := stringgrid1.Cells[0,t];
    for i := 1 to 4 do
      begin
          b[ComboBox1.ItemIndex,ComboBox2.ItemIndex,i,t] := strtofloat(stringgrid1.Cells[i,t]);
      end;
    end;

Oder Alternativ ein 3-dimensionales Array mit k, wobei man k statt hochzuzählen auch aus i und t berechnen könnte (k:=t+(i-1)*13).
Auf jeden Fall hätte man sich viel Code gespart.

[Rollo62]

Zitat von Kegasetu:

Die Idee mit der Liste war gut, ich habe mich für ein Stringgrid entschieden.

Ja das Grid ist wohl die richtige Entscheidung, wenn es um Unmengen an Variablen zur Eingabe geht
(siehe Excel).

[himitsu]

Delphi-Quellcode:

uses
  System.SysConst, System.SysUtils;

type
  // bei uralten Delphi z.B. als "TEdit = class(StdCtrls.TEdit)" über die TForm1-Deklaration
  TEditHelper = class helper for TEdit 
  strict private
    function GetFloat: Float;
    procedure SetFloat(Value: Float);
  public
    property AsFloat: Float read GetFloat write SetFloat;
  end;

function TEditHelper.GetFloat: Float;
{begin
  Result := StrToFloat(Self.Text);
end;}
begin
  it not TryStrToFloat(Self.Text, Result) then begin
    if Self.CanFocus then
      Self.SetFocus;
    raise EConvertError.CreateFmt('%s: ' + LoadStr(@SInvalidFloat), [Self.Name, Self.Text]);
  end;   
end;

procedure TEditHelper.SetFloat(Value: Float);
begin
  Self.Text := FloatToStr(Value);  // oder Format oder sonstwas
end;

Dann gibst du deinen Edits endlich mal ordentliche Namen und lässt das scheinbar nutzlose Umkopieren sein (von KeineAhnungEdit in SoLalaVariable).

Statt StrToFloat(Edit1.Text) ein la4.AsFloat , oder vielleicht mit einem noch "verständlicherem" Namen.

[Kegasetu]

Es gäbe sicher sehr viele Ansätze der Vereinfachung. Aber das verstehe ich halt

Mal eine ganz andere Frage, es sind ja nicht so wenig Variablen. Kann es sein, dass das Programm deswegen Resourcenprobleme bekommen könnte?

[freimatz]

Nein.

[himitsu]

Nja, "einfache" Lesbarkeit, gegen ein bissl mehr Rechenzeit von ein paar Nanosekunden ... das fällt meistens auch nicht auf, aber ja kann man ... denoch schadet es nicht die Edits ordentlich zu bennen und das Konvertieren inkl. Fehlerbehandlung auszulagern.
Man könnte sogar in den Helper diesen Cache (fertig konvertierte Variable) relativ einfach einfügen.

Resourcenprobleme:
Irgendwann schon, wenn du zu viele bzw. zu große Variablen anlegst, aber soooooo viel kannst du dir nicht ausdenken.

Lokalen Variablen landen auf dem Stack (standardmäßig bis 1 MB groß) ... diese (veränderbare) Grenze erreicht man schonmal eher.