Objectlist sortieren

[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...

[DeddyH]

*Buhu* alle hacken auf mir rum, ich melde mich vom Forum ab

[stahli]

Neee!! Nich!!
Ich hab Dir doch Recht gegeben.
Na gut, ich habe natürlich nicht viel zu melden.

[DeddyH]

Das sollte doch nur eine kleine Anspielung auf einen gewissen anderen Thread sein