Скачать: CL | DM;

Работа с функцией 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 ?

---

← →
Sandman25 ©   (2003-11-26 12:59) [40]

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

---

← →
Sandman25 ©   (2003-11-26 13:01) [41]

[39] Vlad © (26.11.03 12:59)

Нет, в Variants. У меня тоже D6, как и у автора.

---

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

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

---

← →
Sandman25 ©   (2003-11-26 13:05) [43]

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

---

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

>Sandman25 © (26.11.03 13:05) [43]
Да я использую Delphi 6.

---

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

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

---

← →
Anatoly Podgoretsky ©   (2003-11-26 13:11) [46]

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

---

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

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

---

← →
Sandman25 ©   (2003-11-26 13:26) [48]

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

---

← →
Sandman25 ©   (2003-11-26 13:28) [49]

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

---

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

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

---

← →
Johnmen ©   (2003-11-26 13:34) [51]

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

---

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

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

---

← →
Sandman25 ©   (2003-11-26 13:34) [53]

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

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

---

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

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

---

← →
Sandman25 ©   (2003-11-26 13:44) [55]

[54] NickNaz © (26.11.03 13:43)

Нет уж. Я лучше пойду обедать :)

---

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

>Sandman25 © (26.11.03 13:44) [55]
Как по обедаешь дай знать:)

---

Страницы: 1 2 вся ветка

Скачать: CL | DM;



Память: 0.57 MB
Время: 0.014 c