AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Object-Pascal / Delphi-Language function mit Array - trotz gleichen Typs "Inkompatible Typen"

function mit Array - trotz gleichen Typs "Inkompatible Typen"

Ein Thema von Shakyamuni · begonnen am 10. Mär 2011 · letzter Beitrag vom 12. Mär 2011
Antwort Antwort
Shakyamuni

Registriert seit: 30. Apr 2008
9 Beiträge
 
#1

AW: function mit Array - trotz gleichen Typs "Inkompatible Typen"

  Alt 12. Mär 2011, 12:41
Sorry für den Doppelpost, allerdings kann ich den obigen nicht mehr editieren.

Also, nun sind die Typen alle gleich (Ich verwende jetzt den IntegerDynArray) und das dividen der Listen funktioniert super. Nun geht es allerdings auf den essentiellen Teil des Mergens zu und da meckert er schon wieder. An den zwei markierten Stellen im Code gibt er mir einen ERangeError, bzw. einen Fehler bei der Bereichsüberprüfung, aus.
Da an den markiertenn Stellen aber nur eine procedure aufgerufen wird, die ein Element löscht, indem es die anderen Elemente über der Liste herunterzieht und die Listenlänge um eins verkleinert, verstehe ich den Fehler nicht so ganz. Bei der Procedure habe ich die Bereiche schon mehrmals überprüft.
Was ich auch überlegt hatte wäre, ob die Listen dann vielleicht schon leer sind und er dennoch ein Element entfernen will - aber das kann ich wegen der while-Schleife drumherum ausschließen.

Ich hoffe, hier könnt mir nochmal helfen^^

Delphi-Quellcode:
function Tsortalgo.Merge(llst, rlst: TIntegerDynArray): TIntegerDynArray;
var
  n: integer;
  lst: TIntegerDynArray;
begin
  SetLength(lst,High(llst)+High(rlst));
  n := 0;
  while (High(llst)>=0) and (High(rlst)>=0) do
    begin
      if llst[0] <= rlst[0]
        then
          begin
            lst[n] := llst[0];
            n := n+1;
            llst := RemoveItem(llst, 0); <--- Fehler
          end
        else
          begin
            lst[n] := rlst[0];
            n := n+1;
            rlst := RemoveItem(rlst, 0); <--- Fehler
          end;
    end;
  while High(llst)>0 do
    begin
      lst[n] := llst[0];
      n := n+1;
      llst := RemoveItem(llst, 0);
    end;
  while High(rlst)>0 do
    begin
      lst[n] := rlst[0];
      n := n+1;
      rlst := RemoveItem(rlst, 0);
    end;
  result := lst;
end;

function Tsortalgo.RemoveItem(lst: TIntegerDynArray; n: integer): TIntegerDynArray;
var
  i: integer;
begin
  for i := n to High(lst)-1 do
    begin
      lst[i] := lst[i+1];
    end;
  SetLength(lst, High(lst)-1);
  result := lst;
end;
  Mit Zitat antworten Zitat
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.879 Beiträge
 
Delphi 11 Alexandria
 
#2

AW: function mit Array - trotz gleichen Typs "Inkompatible Typen"

  Alt 12. Mär 2011, 12:45
Wo in der Funktion RemoveItem tritt der Fehler auf?
Übergebe besser Low(<array>) statt 0
Markus Kinzler
  Mit Zitat antworten Zitat
Shakyamuni

Registriert seit: 30. Apr 2008
9 Beiträge
 
#3

AW: function mit Array - trotz gleichen Typs "Inkompatible Typen"

  Alt 12. Mär 2011, 12:53
Das ist es ja - in RemoveItem tritt gar kein Fehler auf sondern in der Merge-Routine, wo RemoveItem auftreten soll. Das mit Low() versuche ich mal.

Danke schonmal^^
  Mit Zitat antworten Zitat
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.879 Beiträge
 
Delphi 11 Alexandria
 
#4

AW: function mit Array - trotz gleichen Typs "Inkompatible Typen"

  Alt 12. Mär 2011, 12:56
Hier würde sich vielleicht auch eine Liste statt einem Array anbieten
Markus Kinzler
  Mit Zitat antworten Zitat
Shakyamuni

Registriert seit: 30. Apr 2008
9 Beiträge
 
#5

AW: function mit Array - trotz gleichen Typs "Inkompatible Typen"

  Alt 12. Mär 2011, 12:58
Listen wollte ich ursprünglich auch nutzen, allerdings kommen diese nur mit Pointern aus - zumindest weiß ich nicht, wie ich das Objekt Liste mit Integern verwenden soll. Bei Suchen im Internet und zB auf delphi-treff.de und ähnlichen gab es immer nur die Variante, eine Liste als Pointer-Liste zu verwenden (Vielleicht habe ich auch irgendwas übersehen - lasse mich gerne belehren^^).
  Mit Zitat antworten Zitat
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.879 Beiträge
 
Delphi 11 Alexandria
 
#6

AW: function mit Array - trotz gleichen Typs "Inkompatible Typen"

  Alt 12. Mär 2011, 13:04
http://lists.elists.org/pipermail/de...er/019611.html
http://cc.embarcadero.com/Item/22319
Markus Kinzler
  Mit Zitat antworten Zitat
Shakyamuni

Registriert seit: 30. Apr 2008
9 Beiträge
 
#7

AW: function mit Array - trotz gleichen Typs "Inkompatible Typen"

  Alt 12. Mär 2011, 16:01
So, nach ein paar Schritt-für-Schritt-Durchläufen sind mir ein paar kleine Fehler aufgefallen (der gravierendste war in der DeleteItem-Funktion) und nun funktioniert der MergeSort wie geschmiert. Die Probleme lagen größtenteils bei den Grenzen, die ich gesetzt hatte. Da ist der Algorithmus dann etwas aus den Fugen geraten.

Vielen Dank für die Hilfe!
  Mit Zitat antworten Zitat
Antwort Antwort

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 01:25 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz