|
Registriert seit: 19. Apr 2003
Ort: Düsseldorf
835 Beiträge
|
10. Mai 2003, 17:37
Das Problem liegt in der Prozedur "FillArray". Die Prozedur ist so deklariert, dass das Array, welches Du in FillArray verarbeitest, nicht das gleiche Array ist, welches in "btStartClick" deklariert ist. Wenn Du "FillArray" wie folgt änderst, sollte es funktionieren:
procedure FillArray(VAR a: TFeld);
Wobei der Knackpunkt natürlich bei "VAR" liegt.
MfG,
Peter
P.S.: Musst Du natürlich im Interface- und Implementation-Teil ändern.
//Edit: in der Funktion ShowArray solltest Du das Memo vor der neuen Ausgabe erst einmal komplett leer machen. Sonst gibt es beim zweiten Button-Klick da 'ne ziemliche Unordnung.
Christian S.
Admin in der Entwickler-Ecke
|