Irgendwie müsste es sowas wie hier sein, arbeite auch mit den TMS Kompos TadvStringgrid:
Natürlich muss der Code anders aussehen, evt. wäre das aber eine Möglichkeit.
Hab selber keinen Plan, ist nur mal so geraten.
Delphi-Quellcode:
procedure TForm1.AdvStringGrid1CustomCompare(Sender: TObject; str1,
str2: String; var res: Integer);
var
i1,i2,code:integer;
begin
if (pos('Kb',str1)>0) then
begin
Delete(str1,Pos('Kb',str1),2);
Val(str1,i1,code);
i1 := i1 * 1024;
end
else
Val(str1,i1,code);
if (pos('Kb',str2)>0) then
begin
Delete(str2,Pos('Kb',str2),2);
Val(str2,i2,code);
i2:=i2*1024;
end
else
Val(str2,i2,code);
if i1 = i2 then
res := 0
else
begin
if i1 > i2 then
res := 1
else
res := -1;
end;
end;
Hätte ich doch besser eine Listview nehmen sollen, mißt nun ist das Programm fertig.
^^