Работа с функцией Locate

← →
NickNaz © (2003-11-17 10:53) [0]

Добрый день!

У меня возник вопрос связанный с функцией Locate. Проблема в следующем, я пишу: Kopi.Locate("Name_Org; Postav_Programm; Programm", [ "q1", "СТМ", "Феанор"], [locaseInsensitive]); // где Name_Org, Postav_Programm, Programm - текстовые поля.
А Delphi6 пишет, что ошибка: Ordinal type required //после "q1",
Incompatible types: "Integer" and "String" //после [ "q1", "СТМ", "Феанор"], Может, кто-нибудь смог бы помочь решить сложившуюся проблему, очень надо!Заранее благодарю!

С уважением Николай!

← →
Silver Alex © (2003-11-17 10:57) [1]

> Kopi.Locate("Name_Org; Postav_Programm; Programm", [ "q1",
> "СТМ", "Феанор"], [locaseInsensitive])

попробуй так
Kopi.Locate("Name_Org; Postav_Programm; Programm",VarArrayOf( [ "q1",> "СТМ", "Феанор"]), [locaseInsensitive])

← →
NickNaz © (2003-11-17 11:06) [2]

Пишет Missing operator or semicolon после Kopi.Locate("Name_Org; Postav_Programm; Programm",VarArrayOf(

← →
Vlad © (2003-11-17 11:09) [3]

> VarArrayOf( [ "q1", > "СТМ", "Феанор"]),

> - Этот знак убери

← →
NickNaz © (2003-11-17 11:13) [4]

> - Этот знак убери
Все равно тоже самое!

← →
bon © (2003-11-17 11:13) [5]

Kopi.Locate("Name_Org; Postav_Programm; Programm",VarArrayOf( [ "q1", > "СТМ", "Феанор"]), [locaseInsensitive])

а что обозначает " > "

← →
NickNaz © (2003-11-17 11:15) [6]

>а что обозначает " > "
Не знаю зачем, это написал в коде Silver

← →
Silver Alex © (2003-11-17 11:17) [7]

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

← →
Silver Alex © (2003-11-17 11:19) [8]

>
> NickNaz © (17.11.03 11:15) [6]
> >а что обозначает " > "
> Не знаю зачем, это написал в коде Silver

опечатка просто :))

← →
NickNaz © (2003-11-17 11:20) [9]

Зачем весь код, дело только в этой строке:
Kopi.Locate("Name_Org; Postav_Programm; Programm",VarArrayOf([ "q1", "СТМ", "Феанор"]), [locaseInsensitive]);
К сожелению сейчас ухожу, если будут предложения, пишите потом прочту!
Спасибо.

← →
Anatoly Podgoretsky © (2003-11-17 11:20) [10]

NickNaz © (17.11.03 11:13) [4]
А приводить последнюю версию кода Пушкин будет, мало ли каких ты в ней ошибок нагородил.

← →
NickNaz © (2003-11-26 11:45) [11]

Вот я и вернулся, и готов выслушать предложения по моей строке.
Kopi.Locate("Name_Org; Postav_Programm; Programm",VarArrayOf([ "q1", "СТМ", "Феанор"]), [locaseInsensitive]);

← →
Johnmen © (2003-11-26 11:53) [12]

Пробелы убери. "Name_Org;Postav_Programm;Programm"

← →
NickNaz © (2003-11-26 11:59) [13]

>Пробелы убери. "Name_Org;Postav_Programm;Programm"
Убрал, все равно ругается

← →
Vlad © (2003-11-26 11:59) [14]

> NickNaz © (26.11.03 11:45) [11]
>Вот я и вернулся, и готов выслушать предложения по моей строке.

А что с твоей строкой ? :)

← →
Johnmen © (2003-11-26 12:03) [15]

Неплохо бы посмотреть еще строку до и после.
А также узнать, какого класса Kopi.

← →
NickNaz © (2003-11-26 12:03) [16]

>Vlad © (26.11.03 11:59) [14]
Если вам не сложно прочтите выше, если да то я повторюсь!

← →
Vlad © (2003-11-26 12:11) [17]

> NickNaz © (26.11.03 12:03) [16]

Мне не сложно.
Выше была приведена ошибка компилятора Missing operator or semicolon
Приведенная тобой строка в том виде в котором ты ее привел компилируется отлично. Так в чем проблема ?
Да и еще ответь на Johnmen © (26.11.03 12:03) [15]
Интересно что за Kopi такое у тебя

← →
NickNaz © (2003-11-26 12:16) [18]

>Johnmen © (26.11.03 12:03) [15]
Kopi класса TTable

← →
Vlad © (2003-11-26 12:20) [19]

> NickNaz © (26.11.03 12:16) [18]

Так ты продолжаешь утверждать что компилятор по-прежнему ругается именно на эту строчку и именно теми словами, которые ты привел выше ?

← →
NickNaz © (2003-11-26 12:23) [20]

>Vlad © (26.11.03 12:20) [19]
Да, да и еще раз да!

← →
Vlad © (2003-11-26 12:25) [21]

> NickNaz © (26.11.03 12:23) [20]

приведи что у тебя в uses

← →
Vlad © (2003-11-26 12:29) [22]

Еще как вариант - в строчке, которая перед этой, не поставлена точка с запятой.

← →
Sandman25 © (2003-11-26 12:29) [23]

Ругается Incompatible types: "Integer" and "String" или Missing operator or semicolon?

← →
NickNaz © (2003-11-26 12:31) [24]

>Vlad © (26.11.03 12:25) [21]
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,ExtCtrls, StdCtrls, Mask, DBCtrls, ComCtrls, ToolWin,db;

← →
NickNaz © (2003-11-26 12:32) [25]

>Sandman25 © (26.11.03 12:29) [23]
Обе ошибки

← →
Vlad © (2003-11-26 12:34) [26]

попробуй заюзать DBTables

← →
Sandman25 © (2003-11-26 12:35) [27]

[25] NickNaz © (26.11.03 12:32)

А можно тогда показать пару строчек кода до Locate и после. Может, ошибка там.

← →
NickNaz © (2003-11-26 12:35) [28]

>Vlad © (26.11.03 12:34) [26]
Ни какой реакции

← →
Vlad © (2003-11-26 12:37) [29]

> NickNaz © (26.11.03 12:35) [28]

Покажи строчку перед этой

← →
NickNaz © (2003-11-26 12:41) [30]

>Sandman25 © (26.11.03 12:35) [27]
Легко, но дело не в них!
With DataModule2 do begin
Kopi.Locate("Name_Org;Postav_Programm;Programm",VarArrayOf([ "q1", "СТМ", "Феанор"]), [locaseInsensitive]);
Kopi.Edit;
FKopiAdd.DbEdit1.DataSource:=DataSource3;
FKopiAdd.DbEdit1.DataField:=("Name_Org");
FKopiAdd.DbEdit1.Field.AsString:=z;
Kopi.FieldByName("Postav_Programm").Asstring:=ComboBox1.Text;
Kopi.FieldByName("Programm").Asstring:=ComboBox2.Text;
Kopi.FieldByName("Kolvo_Kopi").Asstring:=Edit1.Text;
Kopi.Post;
end;

← →
Johnmen © (2003-11-26 12:42) [31]

Еще строки до With ..

← →
Sandman25 © (2003-11-26 12:45) [32]

Точно, что не в них. Закройте Delphi и зайдите заново. Других мыслей у меня уже нет. Если конечно Kopi - это действительно TTable, и Вы не меняли его исходников.
И еще: напишите Variants.VarArraOf
Вдруг Вы там описали свой VarArrayOf(const A: array of integer);

← →
Vlad © (2003-11-26 12:46) [33]

Кто-то кого-то обманывает. Причем нехило...

← →
NickNaz © (2003-11-26 12:49) [34]

>И еще: напишите Variants.VarArraOf
Где это написать? В Locate? что ли

← →
Sandman25 © (2003-11-26 12:50) [35]

[34] NickNaz © (26.11.03 12:49)

VarArrayOf заменить на Variants.VarArrayOf

← →
NickNaz © (2003-11-26 12:55) [36]

>VarArrayOf заменить на Variants.VarArrayOf
Заменил и что же, пишет Undeclared identifier: "Variants"

← →
Anatoly Podgoretsky © (2003-11-26 12:55) [37]

Покажи свой uses

← →
NickNaz © (2003-11-26 12:57) [38]

>Anatoly Podgoretsky © (26.11.03 12:55) [37]
>Покажи свой uses
Посмотри:
NickNaz © (26.11.03 12:31) [24]

← →
Vlad © (2003-11-26 12:59) [39]

uses он показывал [24]
Так функция VarArrayOf вроде в System.pas ?

допиши в uses модуль Variants;

>допиши в uses модуль Variants;
теперь пишет Undeclared identifier: "VarArrayOf"

Точно Delphi 6 используется?

С новой строки напишите Variants. и нажмите Ctrl+пробел, найдите в появившемся списке VarArrayOf, набирая Var... и так далее.

В uses отсутствует Variants, а в Д6 работа с вариантами вынесена в этот модуль

>С новой строки напишите Variants. и нажмите Ctrl+пробел, найдите в появившемся списке VarArrayOf, набирая Var... и так далее.
Набрал, выбрал
И что дальше?

Запускай на компиляцию :)

Поясняю :)
Недавно как раз такой баг был у другого с форума - не виделась функция из модуля. Вылечилось именно так, функция стала "видна".

>Sandman25 © (26.11.03 13:26) [48]
Запускай на компиляцию :)
Что-то я не пойму. Variants.VarArrayOf(); А что в скобках ввести?

Прикольно...:)
А самый большой приколист - автор...
:)

Kopi.Locate("Name_Org;Postav_Programm;Programm",Variants.VarArrayOf([ "q1", "СТМ", "Феанор"]), [locaseInsensitive]);

Удали эту строку...

PS. В случае необходимости сделай такой же финт со своим нормальным вызовом - удали его и напиши заново по "моей" методике. Будет работать.

>PS. В случае необходимости сделай такой же финт со своим нормальным вызовом - удали его и напиши заново по "моей" методике. Будет работать.
Да финт прошел! Благодарю! Ожидайте новых вопросов!

Работа с функцией Locate Найти похожие ветки