Bubble Sort for string and integers - Problem with conversion to ascii

[wildfire]

http://www.freepascal.org/docs-html/rtl/sysutils/trystrtoint.html

 and

http://www.freepascal.org/docs-html/rtl/sysutils/uppercase.html will come in useful.

EDIT: I should have mentioned if your comparing a string with an integer then the integer should be placed before the string.

[typo]

Here a ready-to-use example, based on the wiki:

Code: [Select]

procedure BubbleSort( a: TStrings );
var
  n, newn, i:integer;
begin
  n := a.Count - 1;
  repeat
    newn := 0;
    for i := 1 to n   do
      begin
        if a[ i - 1 ] > a[ i ] then
          begin
            a.Exchange( i - 1 ,  i );
            newn := i ;
          end;
      end ;
    n := newn;
  until n = 0;
end;       


Code: [Select]

procedure TForm1.Button1Click(Sender :TObject);
begin
  BubbleSort(memo1.Lines); 
end;


[wildfire]

Typo, I get the impression that OP wants to sort a mix of integer and strings, your examples only sort one or the other.

[typo]

Memo lines are always strings.

[wildfire]

Yes but strings don't compare number values correctly.

eg 2 is < 123 but '2' is > '123'

[typo]

You need a more elaborate solution to accomplish this.

Maybe you can try it.

[wildfire]

It's simple enough...

Using TryStrToInt on the items you want to compare... If both items return true then compare the integers
If one is true and the other is false then place the item that returns true above the one that returns false.
If both return false then compare the UpperCase values of both strings.

[typo]

And if the integers are inside the strings, like this?

Code: [Select]

abc22def
abc2def


[wildfire]

I see your point