Einzelnen Beitrag anzeigen

utd123

Registriert seit: 3. Nov 2011
Ort: Deutschland
29 Beiträge
 
Delphi 7 Personal
 
#1

Zahlen aus Memo auslesen

  Alt 31. Dez 2012, 14:32
Hi Leute,
hat jemand eine Idee wie ich vom User in ein Memo-Feld eingegebene Zahlen in einem Array speichern kann?
Die Anzahl der Tahlen ist bekannt und es sollten auch dezimale Brüche und negative Zahlen erkannt werden.
die Zahlen sind durch Leerzeichen getrennt.
Das hier war meine Idee:
Delphi-Quellcode:
     for i:=1 to size do
     begin
          stringarray[i]:=MemoM.lines[i];
     end;


     for i:=0 to size do
     begin
          hilfsstring2 := stringarray[i];
          z:=0;
          for y:=0 to size+1 do
          begin
               while (hilfsstring2[z] <> ' ') do
               begin
                    hilfsstring := hilfsstring + hilfsstring2[z];
                    z += 1;
               end;
               gsys[getIndex(i,y,size)]:=strtofloat(hilfsstring);
               hilfsstring:='';
               z += 1;
          end;
     end;
gsys ist ein eindimensionales Array of real. die funktion getIndex hab ich nur um von den Koordinaten eines zweidimensionalen Arrays in ein eindimensionales Umzurechnen.

Danke schonmal für eure Antworten!
  Mit Zitat antworten Zitat