Entwickler-Ecke :: Thema anzeigen - zahl von edit in array speichern

lanzelot - So 20.03.05 22:25
Titel: zahl von edit in array speichern

Hallo zusammen

ich möchte eine zahl in einem edit eigeben
-den button clicken
-das programm sollte die länge der zahl erkennen und danach
-die ganze zahl in ein array schreiben.

ich habe das so versucht:
nehmen wir an, im edit stehe die zahl 1234

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

procedure TForm1.Button1Click(Sender: TObject);
var myArray: Array of integer;
 l:integer;

begin
l:=Length(edit1.Text); // länge bestimmen von zahl
setlength(myArray,l);  // länge bestimmen von array

das funktioniert aber nicht.

jetzt fehlt mir auch immer noch das reinschreiben der zahl in mein array.
das programm sollte nun automatisch folgendes machen:

Delphi-Quelltext

1:
2:
3:
4:

myarray[1]:=1;
myarray[2]:=2;
myarray[3]:=3;
myarray[4]:=4;

ich habe dazu schon 2 Tutorials für Arrays durchgelesen. Die haben mir jedoch nicht weitergeholfen. Bin sehr froh, wenn mir jemand weiterhelfen kann.

verfüge über:
Delphi 6
winxp

vielen Dank

Moderiert von Christian S.: Code- durch Delphi-Tags ersetzt.

uall@ogc - So 20.03.05 22:29

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

var iar: array of integer;
    s: string;
    i: integer;
begin
  s := '1234';
  setlength(iar,length(s));
  for i := 1 to length(s) do
    iar[i] := strtointdef(s[i-1],0);
end;

delfiphan - So 20.03.05 22:32

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

var
 myArray: array of integer;
 i: integer;
 s: string;
begin
 s := Edit1.Text;
 SetLength(myArray,Length(s));
 for i := 0 to Length(s)-1 do
  myArray[i] := StrToInt(s[i+1]);
end;

Ist dann aber von 0 an nummeriert.

//Edit: uall war schneller, aber: s[i-1] :?: Stringposition 0 lesen kommt nicht gut ;)

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!