Objectlist sortieren

[stahli]

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 )

[hoika]

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

[michael.cohrs]

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!!

[DeddyH]

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.

[stahli]

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

[DeddyH]

Siehste, dann müsste mein Einzeiler ja ausreichen

[michael.cohrs]

DANKE an alle für die Gedult und die Hilfe!!

ES KLAPPT

[Stevie]

Zitat von DeddyH:

Siehste, dann müsste mein Einzeiler ja ausreichen

Bis auf den Overflow wenn man ein Integer compare mit Subtraktion löst (was zugegebenermaßen bei ArtikelNummern, die vermutlich nur im positiven Bereich sind, nicht passiert)

[Lemmy]

Zitat von Stevie:

Zitat von DeddyH:

Siehste, dann müsste mein Einzeiler ja ausreichen

Bis auf den Overflow wenn man ein Integer compare mit Subtraktion löst (was zugegebenermaßen bei ArtikelNummern, die vermutlich nur im positiven Bereich sind, nicht passiert)

und mit dem Problem, dass es einfach nicht mehr so klar und selbsterklärend ist wie ein compareValue. Der Entwickler der sich das später anschaut darf sich dann erst mal Gedanken machen ob das auch immer passt...