Forum: Sonstige Fragen zu Delphi
Delphi
by DeddyH,
8. Jul 2013
Ich weiß selbst, dass Open Arrays 0-basiert sind. Das bedeutet aber auch, dass es so nicht funktionieren kann, da sich je nach Array-Definition die Indizes verschieben. Aber sind wir jetzt nicht etwas weit weg vom eigentlichen Thema?
Forum: Sonstige Fragen zu Delphi
Delphi
by DeddyH,
8. Jul 2013
Dann erzähl das mal meinem Delphi.
function kleinsteZahlAusArray(A: Array of Integer): Integer;
label
neuerVersuch;
var
i: Integer;
begin
neuerVersuch:
Result := Random(Length(A));
for i := 0 to High(A) do
Forum: Sonstige Fragen zu Delphi
Delphi
by DeddyH,
8. Jul 2013
Danke für die Blumen, ich habe den Code trotzdem noch leicht modifiziert. Leider konnte ich nicht herausfinden, wie man bei Lazarus die Breichsprüfung aktiviert bzw. deaktiviert, vermutlich geht es über Compilerschalter.
Forum: Sonstige Fragen zu Delphi
Delphi
by DeddyH,
8. Jul 2013
In den Projektoptionen unter "Compilieren" lässt sich u.A. die Bereichsprüfung einschalten. Und hier dann noch meine angepasste Routine für Fließkommazahlen und dynamische Arrays:
type
TDoubleArray = array of double;
procedure MinimumFirst(const Src: TDoubleArray; out Dest: TDoubleArray);
var
(* Variable für die kleinste Zahl im Array *)
Minimum: double;
(* Variable für den Index...
Forum: Sonstige Fragen zu Delphi
Delphi
by DeddyH,
8. Jul 2013
Schalt doch mal die Bereichsprüfung ein, dann siehst Du, dass Du locker hinter dem Array weiterliest. Und was das Ganze mit Edits zu tun haben soll, will mir nicht in den Kopf, dem Array ist es doch völlig wurscht, wo die Daten herkommen, ob aus Edits, einer ComboBox oder aus einer Datei ausgelesen.
Forum: Sonstige Fragen zu Delphi
Delphi
by DeddyH,
8. Jul 2013
Dazu hatte ich doch schon eine komplette Lösung gepostet.
Forum: Sonstige Fragen zu Delphi
Delphi
by DeddyH,
8. Jul 2013
Was willst Du denn erreichen?
Forum: Sonstige Fragen zu Delphi
Delphi
by DeddyH,
8. Jul 2013
Zuerst belegst Du die Variablen mit Inhalten aus Edit-Feldern, im Anschluss überschreibst Du sie wieder mit dem, was im nicht initialisierten Array steht. Außerdem greifst Du auf Index 0 des Arrays zu, den es laut Definition gar nicht gibt, da das Array von 1 bis 1000 geht. Und da soll etwas anderes als Schrott bei herauskommen?
Forum: Sonstige Fragen zu Delphi
Delphi
by DeddyH,
5. Sep 2009
Viel zu spät: http://www.delphipraxis.net/internal_redirect.php?p=1076233#1076233 :tongue: