Цитата(kobra @ 19.7.2005, 13:32)

да, все работает (по краинеи мере у меня).

Тогда, если не трудно, укажи версию Delphi на которой ты это пробовал.
И еще, важное напоминание. Не работает только если в системе установлено ','

Это сообщение отредактировал(а) Петрович - 19.7.2005, 13:00

Код

program TestLocate; {$APPTYPE CONSOLE} uses   SysUtils,ADODB,ActiveX,ComObj; const   DatabaseName    = 'c:\TestDb.mdb';   CLASS_DBEngine :TGUID ='{00000100-0000-0010-8000-00AA006D2EA4}'; var   db :TADOConnection;   ds :TADODataSet; begin   WriteLn('initialization');   try     CoInitialize(Nil);     db := TADOConnection.Create(Nil);     ds := TADODataSet.Create(Nil);     db.LoginPrompt := False;     WriteLn('Create database');     if  FileExists(DatabaseName)  then  DeleteFile(DatabaseName);     Variant(CreateOleObject(ClassIDToProgID(CLASS_DBEngine)))       .Workspaces[0]         .CreateDatabase (DatabaseName, ';LANGID=0x0409;CP=1252;COUNTRY=0', 0);     db.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0'                           +';Data Source="'+DatabaseName+'"'                           ;     WriteLn('Create Table');     db.Execute('CREATE TABLE Test (fld decimal(15, 4))');     db.Execute('INSERT INTO Test VALUES (1.123)');     db.Execute('INSERT INTO Test VALUES (2.123)');     db.Execute('INSERT INTO Test VALUES (3.123)');          WriteLn('Open table');     ds.Connection := db;     ds.CommandText := 'SELECT * FROM Test';     ds.Open;     WriteLn('DecimalSeparator -' + DecimalSeparator);     DecimalSeparator := '.';     WriteLn('New DecimalSeparator -' + DecimalSeparator);     WriteLn('Show table');     while not ds.Eof do begin       WriteLn(ds.FieldByName('fld').AsString);       ds.Next;     end;     Write('Locate 2.123 ');     if  ds.Locate('fld',floattostr(2.123),[])  then       WriteLn('success')     else       WriteLn('fail');     Write('Locate ''2.123'' ');     if  ds.Locate('fld','2.123',[])  then       WriteLn('success')     else       WriteLn('fail');   except on e :Exception do begin     WriteLn('Error:');     WriteLn(e.ClassName);     WriteLn(e.Message);     end;   end;   FreeAndNil(ds);   FreeAndNil(db);   CoUninitialize;   Write('Press <Enter> key for close application ...');  ReadLn; end.

вот полныи код,
скриншот посмотрите, там разделителем установил "/".

Присоединённый файл ( Кол-во скачиваний: 7 )
 untitled.JPG 31,03 Kb

у меня 7 делфи
а вот скриншот с запетым

Присоединённый файл ( Кол-во скачиваний: 5 )
 untitled11.JPG 27,66 Kb

Да, но пример-то несколько отличается от приведенного мной. Причем, именно в ключевом моменте:
У меня:

Код

Write('Locate 2.123 ');     if  ds.Locate('fld',2.123,[])  then

а у тебя:

Код

Write('Locate 2.123 ');     if  ds.Locate('fld',floattostr(2.123),[])  then

При чем тут floattostr?
Дело в том, что в реальной жизни, я не знаю о каком конкретно типе идет речь. У меня сохраняются значения всех полей абстрактного датасета, и потом, мне надо спозиционировать его на сохраненную запись. Поэтому, я не могу выполнять явного преобразования в строку.
Добавлено @ 13:16
Хотя, конечно можно проверять тип поля и соответственно мудро конвертировать в строку. Но, это не есть хорошо. Все и без преобразования должно работать!

Добавлено @ 13:21
На самом деле, проблему преобразования variant(currency)->String можно продемонстрировать на более простом примере:

Код

{$APPTYPE CONSOLE} uses   SysUtils,Variants; begin   DecimalSeparator := '.';  WriteLn(VarToStr(1.23),' ',FloatToStr(1.23));   DecimalSeparator := ',';  WriteLn(VarToStr(1.23),' ',FloatToStr(1.23));   DecimalSeparator := '#';  WriteLn(VarToStr(1.23),' ',FloatToStr(1.23));   Write('Press <Enter> key for close application ...');  ReadLn; end.

Результат, при установленном в системе разделителе ',' :

Код

1,23 1.23 1,23 1,23 1,23 1#23 Press <Enter> key for close application ...

Это сообщение отредактировал(а) Петрович - 19.7.2005, 13:26

а так не подоидет?

Код

program TestLocate; {$APPTYPE CONSOLE} uses   SysUtils,ADODB,ActiveX,ComObj; const   DatabaseName    = 'c:\TestDb.mdb';   CLASS_DBEngine :TGUID ='{00000100-0000-0010-8000-00AA006D2EA4}'; var   db :TADOConnection;   ds :TADODataSet;   VARVARIANT: variant;   VARSTRING: string; begin   WriteLn('initialization');   try     CoInitialize(Nil);     db := TADOConnection.Create(Nil);     ds := TADODataSet.Create(Nil);     db.LoginPrompt := False;     WriteLn('Create database');     if  FileExists(DatabaseName)  then  DeleteFile(DatabaseName);     Variant(CreateOleObject(ClassIDToProgID(CLASS_DBEngine)))       .Workspaces[0]         .CreateDatabase (DatabaseName, ';LANGID=0x0409;CP=1252;COUNTRY=0', 0);     db.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0'                           +';Data Source="'+DatabaseName+'"'                           ;     WriteLn('Create Table');     db.Execute('CREATE TABLE Test (fld decimal(15, 4))');     db.Execute('INSERT INTO Test VALUES (1.123)');     db.Execute('INSERT INTO Test VALUES (2.123)');     db.Execute('INSERT INTO Test VALUES (3.123)');          WriteLn('Open table');     ds.Connection := db;     ds.CommandText := 'SELECT * FROM Test';     ds.Open;     WriteLn('DecimalSeparator -' + DecimalSeparator);     DecimalSeparator := '.';     WriteLn('New DecimalSeparator -' + DecimalSeparator);     VARVARIANT := 2.123;     str(VARVARIANT,VARSTRING);     WriteLn('Show table');     while not ds.Eof do begin       WriteLn(ds.FieldByName('fld').AsString);       ds.Next;     end;     Write('Locate 2.123 ');     if  ds.Locate('fld',VARSTRING,[])  then       WriteLn('success')     else       WriteLn('fail');     Write('Locate ''2.123'' ');     if  ds.Locate('fld','2.123',[])  then       WriteLn('success')     else       WriteLn('fail');   except on e :Exception do begin     WriteLn('Error:');     WriteLn(e.ClassName);     WriteLn(e.Message);     end;   end;   FreeAndNil(ds);   FreeAndNil(db);   CoUninitialize;   Write('Press <Enter> key for close application ...');  ReadLn; end.

А вот еще забавнее:

Код

{$APPTYPE CONSOLE} uses   SysUtils,Variants; var //  v :Currency;   v :Double; begin   v := 1.23;   DecimalSeparator := '.';  WriteLn(VarToStr(v),' ',FloatToStr(v));   DecimalSeparator := ',';  WriteLn(VarToStr(v),' ',FloatToStr(v));   DecimalSeparator := '#';  WriteLn(VarToStr(v),' ',FloatToStr(v));   Write('Press <Enter> key for close application ...');  ReadLn; end.

Если v имеет тип Currency, то результат будет:

Код

1,23 1.23 1,23 1,23 1,23 1#23 Press <Enter> key for close application ...

А если ее тип будет Double, то:

Код

1.23 1.23 1,23 1,23 1#23 1#23 Press <Enter> key for close application ...

ето ещо забавнее, но главное, наверняка тебе поможет. тоже самое что и в предидушем примере

Код

{$APPTYPE CONSOLE} uses   SysUtils,Variants; var   r :Currency;   v :Double;   S1, S2: string; begin   v := 1.23;   r := 1.23;   str(v,S1);   str(r, S2);   DecimalSeparator := '.';  WriteLn(VarToStr(v),' ',S1, ' ', VarToStr(r),' ',S2);   DecimalSeparator := ',';  WriteLn(VarToStr(v),' ',S1, ' ', VarToStr(r),' ',S2);   DecimalSeparator := '#';  WriteLn(VarToStr(v),' ',S1, ' ', VarToStr(r),' ',S2);   Write('Press <Enter> key for close application ...');  ReadLn; end.

поменял код, тогда промежуточныи вариант запостил

Это сообщение отредактировал(а) kobra - 19.7.2005, 13:50

Я тащусь как нас разводят!
Вот выдержка их хелпа по функции Str (выделено мной):

Цитата

Str converts X to a string representation according to the Width and Decimals formatting parameters. The effect is like a call to Write except the resulting string is stored in S instead of being written to a text file.

Однако, выполняю такой код:

Код

var   v :Variant;   s :String; begin   v := 1.23;   WriteLn(v);   Str(v,s);   WriteLn(s); end.

и получаю:

Код

1,23  1.23000000000000E+0000

Вот так. Добавить просто нечего
Добавлено @ 13:51

Цитата(kobra @ 19.7.2005, 14:45)

... но главное, наверняка тебе поможет ...

Увы нет. Как я уже писал, я заранее не знаю тип лежащий в варианте. В Str отреагирует не адекватно в том случае если ей передать вариант содержащий например tDateTime.

Добавлено @ 13:53

Цитата

Вот так. Добавить просто нечего  Добавлено @ 14:51

Добавлено @ 13:55
На самом деле проблема только с Currency. Пэтому, конечно можно проверить что это именно он, и преобразовать его явно в строку с помощью FloatStr например.

я в предыдущем посте код поменял, но в принцыпе ты и без етого меня понял

Цитата

Добавить просто нечего

Цитата

На самом деле проблема только с Currency. Пэтому, конечно можно проверить что это именно он, и преобразовать его явно в строку с помощью FloatStr например.

не понял.
и с денежным типом все в порядке, специално проверил переделав в таблице тип поля.
или я чтото не так понял?

Пардон. Это я про VarToStr
Кстати, значения полей типа decimal(15, 4)) интерпретируются как Variant(Currency). Например, добавь после ds.Open; оператор:

Код

Writeln(VarTypeAsText(VarType(ds.FieldByName('fld').Value)));

даааааа...
сам танцует сам поет, да ешо и музыку сам заказывает

Петрович
Я тебе еще один косяк аналогичный изложу:
Берем numpad (ну это справа где буковок нет и вводим через него цифры. Так вот если ты не установишь DecimalSeparator в ".", то в зависимости от текущей раскладки ты либо сможешь ввести этот separator в DBEditе, либо нет (если на рус переключен). Это более прискорбно, чем программные проблемы с Select, которые можно обойти. Поэтому я при запуске проверяю значение разделителя, и если не мое, принудительно выставляю в ".". Самое залихватское при этом, что выставление сепаратора в "." на текущем запуске программы не скажется, только на следующем. С сответствующим моральным эффектом:
1 запуск - "ААААААААА! Программа не работает!" - "Покажи!" - 2 запуск - "Ой! Работает "

Блин, не привык еще здесь писать, не дописал.

Петрович
Совсем простой вопрос: у тебя что, автоинкрементных полей в MS SQL нет? Если есть - так сам понимаешь, как твоя проблема с поиском именно той записи, что ты правил, решается "на раз".
И чем букмарки не нравятся?

Цитата(SergeBS @ 26.7.2005, 12:03)

И чем букмарки не нравятся?

попробуи такое.
установи букмарк, переиди на другую запис, измени поле сортировки и поиши по букмарку.
или удали какую то запис до букмарка.

Цитата(SergeBS @ 26.7.2005, 12:03)

Совсем простой вопрос: у тебя что, автоинкрементных полей в MS SQL нет? Если есть - так сам понимаешь, как твоя проблема с поиском именно той записи, что ты правил, решается "на раз".

искать то приходится не толко по клучу.