Einzelnen Beitrag anzeigen

zuflucht

Registriert seit: 4. Dez 2008
4 Beiträge
 
Delphi 2005 Personal
 
#1

Zahl im 2D_array speichern >>" ist kein Gleitkomm

  Alt 4. Dez 2008, 12:42
hi ich schreibe ein programm mit dem man mit einer matrix rechnen kann.
ich möchte nun die eigegebenen zahlen in einem 2Dimensionalen Array of real speichern.
bekomme jedoch die fehlermedlung, dass > " < kein gültiger Gleitkommawert sei.
woran kann es liegen, und wie behebe ich dies?

Hier noch die wichtigen stellen aus meinem Programmcode:


Delphi-Quellcode:
var
  Form1: TForm1;
  a, b, c, d, e, hoch: integer;
  Matrix1: array [5..50] of Tedit;
  Matrix2: array [51..100] of Tedit;
  ElementM1: array [1..99, 1..99] of real;
  ElementM2: array [1..99, 1..99] of real;
  m1, m2: Integer;
  Zeile, Spalte: integer;


procedure TForm1.Button1Click(Sender: TObject);
var i,j :integer;
begin // "Matrix1Layout" erstellen
  a:=strtoint (edit1.text);
  b:=strtoint (edit2.text);
  hoch:=20;
  m1:=5;
  for j:=1 to b do
   begin
   e:= 20;
   for i:=1 to a do
    begin
    Matrix1[m1]:=TEdit.Create(Panel1);
    Matrix1[m1].parent:=Panel1;
    Matrix1[m1].top:=hoch;
    Matrix1[m1].left:=e;
    Matrix1[m1].height:=20;
    Matrix1[m1].width:=20;
    Matrix1[m1].Visible:=true;
    Matrix1[m1].enabled:=true;
    Matrix1[m1].text:='';
    Matrix1[m1].show;
    e:=e+20;
    m1:=m1+1;
    end;
   hoch:=hoch+15;
   end;
end;


procedure TForm1.Button3Click(Sender: TObject);
var i:integer; // "Save"
begin // Aus MAtrix1Layout Zahlen in ElementM1[Zeile, Spalte] speichern
  Zeile:=1;
  Spalte:=1;
  for i:=5 to m1 do
  begin
  ElementM1[Zeile, Spalte]:=StrToFloat (Matrix1[i].text);
  Zeile:=Zeile+1;
  Spalte:=Spalte+1;
  end;
end;

im vorraus schon mal nen ganz dickes danke.
  Mit Zitat antworten Zitat