Problem with Order By in kbmMemTable_79100

[Logeas]

Hello

I have a problem with the order By in MemSQL.
I write an example, somebody have an idea of the problem ?

Best regards

procedure TForm3.Button1Click(Sender: TObject);
var
aMemTable:TkbmMemTable;
aMemSQL:TkbmMemSQL;
St:String;
begin
aMemTable:=TkbmMemTable.create(nil);
aMemTable.FieldDefs.Add('Nom',ftString,100);
aMemTable.CreateTable;
aMemTable.Open;
aMemTable.Append; aMemTable.FieldByName('Nom').AsString:='MARCHAND'; aMemTable.post;
aMemTable.Append; aMemTable.FieldByName('Nom').AsString:='AHOUA'; aMemTable.post;
aMemTable.Append; aMemTable.FieldByName('Nom').AsString:='DESJARDINS'; aMemTable.post;

aMemSQL:=TkbmMemSQL.Create(nil);
aMemSQL.Tables.Add('A',AMemTable);
aMemSQL.ExecSQL('SELECT * FROM A ORDER BY Nom');

aMemSQL.First;
St:='';
while not aMemSQL.eof do
begin
St:=St+ AMemSQL.Fields[0].AsString+#13;
aMemSQL.Next;
end;
ShowMessage(St);
end;

The result is in same order than  the origin table …

[Logeas]

I try with an old version kbmMemTable_78100
I have’nt the problem

Best regards

[zoran]

Looks like 79100 has some problems. I had to revert back to older versions of kbmMemtable and kbmMW (post FindKey problem below).

Unfortunately Kim doesn’t have enough time to visit this forum 🙁

Zoran

 

[kimbomadsen]

Check if 7.91.10 fixes the problem.

[Author]

Posts