AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Objectlist sortieren

Ein Thema von michael.cohrs · begonnen am 11. Aug 2016 · letzter Beitrag vom 12. Aug 2016
Antwort Antwort
Seite 3 von 5     123 45   
michael.cohrs

Registriert seit: 11. Nov 2005
Ort: Hamburg
130 Beiträge
 
#21

AW: Objectlist sortieren

  Alt 11. Aug 2016, 15:00
Ich weiss es nervt...

aber ich kapiers nicht.

meine Objektlist heisst FValueLst.

in dieser stecken n Objekte.

jedes dieser Objekte hat ein Feld namens ArtNr

BITTE, wie rufe ich nun genau mit den Angaben die Sortierroutine auf um die Liste nach ArtNr zu sortieren???

ich habe eure ansätze verstanden, weiss jedoch nicht wie ich das mit meiner Liste umsetzen soll

Danke und viele Grüße

Michael
Michael Cohrs
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.533 Beiträge
 
Delphi 11 Alexandria
 
#22

AW: Objectlist sortieren

  Alt 11. Aug 2016, 15:05
Deine Liste verfügt über eine Methode namens Sort. Diese erwartet als Parameter eine Funktion, die wiederum 2 Pointer als Parameter erwartet und einen Integer zurückgibt. Diese Funktion musst Du selbst schreiben (siehe Stevies Code) und an Sort übergeben. Innerhalb der Funktion musst Du dann halt die Pointer in den Typ der Klasse casten, von dem die enthaltenen Objekte sind, damit auf auf deren Felder zugreifen kannst. Du musst die Objekte nicht selbst anfassen, das macht die Liste von sich aus, sobald Du Sort aufrufst.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
michael.cohrs

Registriert seit: 11. Nov 2005
Ort: Hamburg
130 Beiträge
 
#23

AW: Objectlist sortieren

  Alt 11. Aug 2016, 15:08
oh sorry aber ich verstehe echt nichts mehr.....

bitte nur ein kleines beispiel bezugnehmend auf meine angaben, das würde mir helfen
Michael Cohrs
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.533 Beiträge
 
Delphi 11 Alexandria
 
#24

AW: Objectlist sortieren

  Alt 11. Aug 2016, 15:10
Das Beispiel stand bereits in #6, Du musst nur noch den Klassennamen anpassen.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Benutzerbild von stahli
stahli

Registriert seit: 26. Nov 2003
Ort: Halle/Saale
4.336 Beiträge
 
Delphi 11 Alexandria
 
#25

AW: Objectlist sortieren

  Alt 11. Aug 2016, 15:13
Wenn Du das kannst, dann hänge mal Deine pas an, die Deine Liste definiert...

Ansonsten
- Stevies Funktion an den Anfang des Implementationsteils kopieren
und
- dort, wo Du sortieren möchtest, MyList.Sort(SteviesFunktion) aufrufen
und notfalls
- eine kleine Entspannungspause einlegen (kennt ja jeder, manchmal braucht man mal etwas Abstand )
Stahli
http://www.StahliSoft.de
---
"Jetzt muss ich seh´n, dass ich kein Denkfehler mach...!?" Dittsche (2004)
  Mit Zitat antworten Zitat
hoika

Registriert seit: 5. Jul 2006
Ort: Magdeburg
8.269 Beiträge
 
Delphi 10.4 Sydney
 
#26

AW: Objectlist sortieren

  Alt 11. Aug 2016, 15:50
Hallo,

Delphi-Quellcode:
// dein Objekt
type
  TMyObject = class
    ArtNr: Integer;
  end;

function CompareItem(Item1, Item2: Pointer): Integer;
var
  MyObject1: TMyObject;
  MyObject2: TMyObject;
begin
  MyObject1 := TMyObject(Item1);
  MyObject2 := TMyObject(Item2);

  if MyObject1.ArtNr<MyObject2.ArtNr then
  begin
    Result := -1;
    Exit;
  end;
  if MyObject1.ArtNr>MyObject2.ArtNr then
  begin
    Result := 1;
    Exit;
  end;

  Result := 0;
end;

// jetzt deine anderer Code +

  FValueList.Sort(CompareItem);
TObjectList.Sort erwartet eine Funktion mit 2 Pointern als Parameter
und Integer als Rückgabewert, die du selbst definieren musst.

function CompareItem(Item1, Item2: Pointer): Integer;

Das Math. habe ich mal ausgeschrieben (hatte das Delphi 6 schon?)
TObjectList implementiert dann einen Quicksort und holt sich aus deiner Liste
die jeweiligen Objekte und übergibt deiner Funktion die Objekte.
Du musst dann sagen, welches der beiden Objekte größer ist.

Heiko
Heiko

Geändert von hoika (11. Aug 2016 um 17:45 Uhr)
  Mit Zitat antworten Zitat
michael.cohrs

Registriert seit: 11. Nov 2005
Ort: Hamburg
130 Beiträge
 
#27

AW: Objectlist sortieren

  Alt 11. Aug 2016, 15:50
Delphi-Quellcode:
procedure ReadGlobalInformations;
  Var
    j,z,k : Integer;
  Begin
    iCNT1 := 1;
    iPos1 := iGeneralPos[0];
    for k := 0 to sWriteDataSet.count -1 do
    Begin
      if k > 0 then
      Begin
        sGValueList.Clear;
        sGValueList.DelimitedText := StringReplace(sWriteDataSet[iCNT1],' ','_',[rfReplaceAll]);
        if sGValueList[iPosArt] <> 'then
        Begin
          for z := 1 to iPos1 - 1 do
          Begin
            if sGValueList[z] <> 'then
            Begin
              oArtValues := TArtValues.Create;
              oArtValues.iArtNr := StrToInt(sGValueList[iPosArt]);
              oArtValues.sArt := 'G';
              oArtValues.sDescription := ArtPropertyName[z];
              oArtValues.iColNr := z+1;


              sTemp0 := sGValueList[z];
              Delete(sTemp0,pos('\PIM_Webbilder\',sTemp0),Length('\PIM_Webbilder\'));
              oArtValues.sVal := StringReplace(sTemp0,'_',' ',[rfReplaceAll]);
              oArtValues.sVal255 := StringReplace(sTemp0,'_',' ',[rfReplaceAll]);
              FVArtValues.Add(oArtValues);
            end;
          end;
            INC(iCNT1);
        end
        else
          INC(iCNT1);
      end;
    end;
  end;

// General Informations
  procedure ReadGeneralInformations;
  Var
    z,k : Integer;
  Begin
    iCNT1 := 1;
    iPos1 := iGeneralPos[0];
    iPos2 := iGeneralPos[1];
    iPos3 := iGeneralPos[2];
    for k := 0 to sWriteDataSet.count -1 do
    Begin
      if k > 0 then
      Begin
        sGValueList.Clear;
        sGValueList.DelimitedText := StringReplace(sWriteDataSet[iCNT1],' ','_',[rfReplaceAll]);
        if sGValueList[iPosArt] <> 'then
        Begin
          for z := iPos1 to iPos2 - 1 do
          Begin
            if (sGValueList[iPos1] <> '') and (sGValueList[iPos2] <> '')then
            Begin
              oArtValues := TArtValues.Create;
              oArtValues.iArtNr := StrToInt(sGValueList[iPosArt]);
              oArtValues.sArt := 'A';
              oArtValues.sDescription := ArtPropertyName[iPos1];
              oArtValues.iColNr := iPos1+1;
              oArtValues.sVal := StringReplace(sGValueList[iPos1],'_',' ',[rfReplaceAll]);;
              oArtValues.sVal255 := sGValueList[iPos2];
              oArtValues._Unit := sGValueList[iPos3];
              FVArtValues.Add(oArtValues);
              INC(iPos1);
              INC(iPos2);
              INC(iPos3);
            end
            else
              Break;
          end;
          Begin
            INC(iCNT1);
         end;
        end
        else
          INC(iCNT1);
      end;
    end;
  end;

// Individually Informations
  procedure ReadIndividuallyInformations;
  Var
    z,k : Integer;
  Begin
    iCNT1 := 1;
    iPos4 := iIndividuallyPos[0];
    iPos5 := iIndividuallyPos[1];
    iPos6 := iIndividuallyPos[2];
    for k := 0 to sWriteDataSet.count -1 do
    Begin
      if k > 0 then
      Begin
        sGValueList.Clear;
        sGValueList.DelimitedText := StringReplace(sWriteDataSet[iCNT1],' ','_',[rfReplaceAll]);
        if sGValueList[iPosArt] <> 'then
        Begin
          for z := iPos4 to sGValueList.count{iPos5}- 1 do
          Begin
            sTemp0 :=sGValueList[iPos4];
            sTemp1 :=sGValueList[iPos5];
            sTEmp2 := IntToStr(z);
            if iPos6 < sGValueList.count - 1 then
            Begin
              if (sTemp0 <> '') and (sTemp1 <> '')then
              Begin
                oArtValues := TArtValues.Create;
                oArtValues.iArtNr := StrToInt(sGValueList[iPosArt]);
                oArtValues.sArt := 'I';
                oArtValues.sDescription := ArtPropertyName[iPos4];
                oArtValues.iColNr := iPos4+1;
                oArtValues.sVal := StringReplace(sGValueList[iPos4],'_',' ',[rfReplaceAll]);;
                oArtValues.sVal255 := sGValueList[iPos5];
                oArtValues._Unit := sGValueList[iPos6];
                FVArtValues.Add(oArtValues);
                INC(iPos4);
                INC(iPos5);
                INC(iPos6);
              end
              else
              Begin
                INC(iPos4);
                INC(iPos5);
                INC(iPos6);
              end;
            end
            else
              Break;

          end;
          Begin
            iPos4 := iIndividuallyPos[0];
            iPos5 := iIndividuallyPos[1];
            iPos6 := iIndividuallyPos[2];
            INC(iCNT1);
         end;
        end
        else
        INC(iCNT1);
      end;
    end;
  end;
Das sind die proceduren die die Daten lesen, auswerten und als Objekt in die Objektliste(FVArtValues) schreiben.

Die ArtikelNr. sind bedingt durch die 3 Aufrufe nicht sortiert in der Liste.
Das möchte ich im Anschluß der Aufrufe ändern.

VIELEN DANK!!
Michael Cohrs
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.533 Beiträge
 
Delphi 11 Alexandria
 
#28

AW: Objectlist sortieren

  Alt 11. Aug 2016, 16:11
Delphi-Quellcode:
function SuperduperSort(Item1, Item2: Pointer): integer;
begin
  Result := TArtValues(Item1).ArtNr - TArtValues(Item2).ArtNr;
end;

...

FVArtValues.Sort(SuperduperSort);
Ich bin mir ziemlich sicher, dass das Ergebnis nicht zwingend unbedingt 0, 1 oder -1 sein muss. Sollte ich mich irren, kann man das Funktionsergebnis ja noch mit Math.Sign auf den richtigen Wert bringen.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Benutzerbild von stahli
stahli

Registriert seit: 26. Nov 2003
Ort: Halle/Saale
4.336 Beiträge
 
Delphi 11 Alexandria
 
#29

AW: Objectlist sortieren

  Alt 11. Aug 2016, 16:40
Delphi-Quellcode:
  
// --------------------------------------->
function CompareItem(Item1, Item2: Pointer): Integer;
var
   ArtValues1: TArtValues;
   ArtValues2: TArtValues;
begin
   ArtValues1 := TArtValues(Item1);
   ArtValues2 := TArtValues(Item2);

   if ArtValues1.ArtNr<ArtValues2.ArtNr then
   begin
     Result := -1;
     Exit;
   end;
   if ArtValues1.ArtNr>ArtValues2.ArtNr then
   begin
     Result := 1;
     Exit;
   end;

   Result := 0;
end;
// <---------------------------------------

   procedure ReadGlobalInformations;
   Var
     j,z,k : Integer;
   Begin
     iCNT1 := 1;
     iPos1 := iGeneralPos[0];
     for k := 0 to sWriteDataSet.count -1 do
     Begin
       if k > 0 then
       Begin
         sGValueList.Clear;
         sGValueList.DelimitedText := StringReplace(sWriteDataSet[iCNT1],' ','_',[rfReplaceAll]);
         if sGValueList[iPosArt] <> 'then
         Begin
           for z := 1 to iPos1 - 1 do
           Begin
             if sGValueList[z] <> 'then
             Begin
               oArtValues := TArtValues.Create;
               oArtValues.iArtNr := StrToInt(sGValueList[iPosArt]);
               oArtValues.sArt := 'G';
               oArtValues.sDescription := ArtPropertyName[z];
               oArtValues.iColNr := z+1;


               sTemp0 := sGValueList[z];
               Delete(sTemp0,pos('\PIM_Webbilder\',sTemp0),Length('\PIM_Webbilder\'));
               oArtValues.sVal := StringReplace(sTemp0,'_',' ',[rfReplaceAll]);
               oArtValues.sVal255 := StringReplace(sTemp0,'_',' ',[rfReplaceAll]);
               FVArtValues.Add(oArtValues);
             end;
           end;
             INC(iCNT1);
         end
         else
           INC(iCNT1);
       end;
     end;
   end;

// General Informations
   procedure ReadGeneralInformations;
   Var
     z,k : Integer;
   Begin
     iCNT1 := 1;
     iPos1 := iGeneralPos[0];
     iPos2 := iGeneralPos[1];
     iPos3 := iGeneralPos[2];
     for k := 0 to sWriteDataSet.count -1 do
     Begin
       if k > 0 then
       Begin
         sGValueList.Clear;
         sGValueList.DelimitedText := StringReplace(sWriteDataSet[iCNT1],' ','_',[rfReplaceAll]);
         if sGValueList[iPosArt] <> 'then
         Begin
           for z := iPos1 to iPos2 - 1 do
           Begin
             if (sGValueList[iPos1] <> '') and (sGValueList[iPos2] <> '')then
             Begin
               oArtValues := TArtValues.Create;
               oArtValues.iArtNr := StrToInt(sGValueList[iPosArt]);
               oArtValues.sArt := 'A';
               oArtValues.sDescription := ArtPropertyName[iPos1];
               oArtValues.iColNr := iPos1+1;
               oArtValues.sVal := StringReplace(sGValueList[iPos1],'_',' ',[rfReplaceAll]);;
               oArtValues.sVal255 := sGValueList[iPos2];
               oArtValues._Unit := sGValueList[iPos3];
               FVArtValues.Add(oArtValues);
               INC(iPos1);
               INC(iPos2);
               INC(iPos3);
             end
             else
               Break;
           end;
           Begin
             INC(iCNT1);
          end;
         end
         else
           INC(iCNT1);
       end;
     end;
   end;

// Individually Informations
   procedure ReadIndividuallyInformations;
   Var
     z,k : Integer;
   Begin
     iCNT1 := 1;
     iPos4 := iIndividuallyPos[0];
     iPos5 := iIndividuallyPos[1];
     iPos6 := iIndividuallyPos[2];
     for k := 0 to sWriteDataSet.count -1 do
     Begin
       if k > 0 then
       Begin
         sGValueList.Clear;
         sGValueList.DelimitedText := StringReplace(sWriteDataSet[iCNT1],' ','_',[rfReplaceAll]);
         if sGValueList[iPosArt] <> 'then
         Begin
           for z := iPos4 to sGValueList.count{iPos5}- 1 do
           Begin
             sTemp0 :=sGValueList[iPos4];
             sTemp1 :=sGValueList[iPos5];
             sTEmp2 := IntToStr(z);
             if iPos6 < sGValueList.count - 1 then
             Begin
               if (sTemp0 <> '') and (sTemp1 <> '')then
               Begin
                 oArtValues := TArtValues.Create;
                 oArtValues.iArtNr := StrToInt(sGValueList[iPosArt]);
                 oArtValues.sArt := 'I';
                 oArtValues.sDescription := ArtPropertyName[iPos4];
                 oArtValues.iColNr := iPos4+1;
                 oArtValues.sVal := StringReplace(sGValueList[iPos4],'_',' ',[rfReplaceAll]);;
                 oArtValues.sVal255 := sGValueList[iPos5];
                 oArtValues._Unit := sGValueList[iPos6];
                 FVArtValues.Add(oArtValues);
                 INC(iPos4);
                 INC(iPos5);
                 INC(iPos6);
               end
               else
               Begin
                 INC(iPos4);
                 INC(iPos5);
                 INC(iPos6);
               end;
             end
             else
               Break;

           end;
           Begin
             iPos4 := iIndividuallyPos[0];
             iPos5 := iIndividuallyPos[1];
             iPos6 := iIndividuallyPos[2];
             INC(iCNT1);
          end;
         end
         else
         INC(iCNT1);
       end;
     end;
   end;

// ------------------------------------------->
...
ReadGlobalInformations;
ReadGeneralInformations;
ReadIndividuallyInformations;
FVArtValues.Sort(CompareItem);
...
// <-------------------------------------------

Passt hoffentlich so.

@DeddyH
Stimmt! Gerade nachgesehen:
http://docs.embarcadero.com/products...rtCompare.html
Zitat:
>0 (positive)
Item1 is greater than Item2

0
Item1 is equal to Item2

<0 (negative)
Item1 is less than Item2
Stahli
http://www.StahliSoft.de
---
"Jetzt muss ich seh´n, dass ich kein Denkfehler mach...!?" Dittsche (2004)
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.533 Beiträge
 
Delphi 11 Alexandria
 
#30

AW: Objectlist sortieren

  Alt 11. Aug 2016, 16:43
Siehste, dann müsste mein Einzeiler ja ausreichen
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
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 11:22 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz