Einem Array of double einen Wert 0 zuweisen

[bcvs]

Kauf dir mal ein gutes Buch über Delphi.

Aber ich will ja nicht so sein:

Delphi-Quellcode:

var
i: integer; 
Zahl: array[1..49] of double;
begin
  for i:=1 to 49  do 
  begin
   zahl[i]:=0;
  end;
end;

Außerdem:

Zitat:

Delphi-Quellcode:

    
    if eltreestringgrid1.cells[5,i]='2110' then Length(eltreestringgrid1.Cells[2,i]);
    if eltreestringgrid1.cells[5,i]='2110' then s := eltreestringgrid1.Cells[2,i];
    if eltreestringgrid1.cells[5,i]='2110' then setlength(e,length(s)-2);
    if eltreestringgrid1.cells[5,i]='2110' then copymemory(e,@s[1],length(e));
    if eltreestringgrid1.cells[5,i]='2110' then eltreestringgrid1.Cells[2,i]:=(string(e));
    if eltreestringgrid1.cells[5,i]='2110' then gesamtzahl:=gesamtzahl + strtofloat(eltreestringgrid1.cells[2,i]);
    if eltreestringgrid1.cells[5,i]='2110' then eltreestringgrid1.Cells[2,i]:=eltreestringgrid1.Cells[2,i]+' €' else;

Schon mal was von begin /end gehört? Warum nicht so?

Delphi-Quellcode:

if eltreestringgrid1.cells[5,i]='2110' then begin
  Length(eltreestringgrid1.Cells[2,i]);
  s := eltreestringgrid1.Cells[2,i];
  setlength(e,length(s)-2);
  copymemory(e,@s[1],length(e));
  eltreestringgrid1.Cells[2,i]:=(string(e));
  gesamtzahl:=gesamtzahl +strtofloat(eltreestringgrid1.cells[2,i]);
  eltreestringgrid1.Cells[2,i]:=eltreestringgrid1.Cells[2,i]+' €';
end;