Проблемы с кодировкой?

[maLoy*508]

у меня схожий вопрос...
сам запрос работает нормально...но при работе в дельфи возникает следующая ошибка:
..... ......
Cannot transliterate character between character sets'.
.....
как говорит мой переводчик это опять что то с кодировками... а что именно?
использую Interbase... там Character set = win1251...

[Dark_Spirit]

сам запрос работает нормально...но при работе в дельфи возникает следующая ошибка:

а запрос можно увидеть?

[maLoy*508]

Собственно говоря запрос тут не при чем... тут что с моими рукам(....
короче вот запрос:

with Dm.IBQObrDan do
 begin
  with Sql do
   begin
  Clear;
  Add('SELECT OTDELI.NAIM_OTDELA, "USER".FIO_USER, OBORUDOVANIE.INVENT_NOMER, OBORUDOVANIE.NAIM_OBORUD, OBORUDOVANIE.PROZIVODITEL, OBORUDOVANIE.OPISANIE, DOLZHOSTI.NAIM_DOLZNOST');
   Add('FROM OBORUDOVANIE');
    Add('INNER JOIN "USER" ON (OBORUDOVANIE.ID_USERA = "USER".ID_USER)');
    Add('INNER JOIN OTDELI ON ("USER".OTDEL = OTDELI.ID_OTDELA)');
    Add('INNER JOIN DOLZHOSTI ON ("USER".DOLZHNOST =   DOLZHOSTI.ID_DOLZHNOST)');
    Add('WHERE');
    Add('OTDELI.ID_OTDELA ='+''''+Edit1.Text+'''');
    //Add('and');
    //Add('("USER".FIO_USER = '+Edit2.Text+')');
    //Add('and');
   //Add('(OBORUDOVANIE.NAIM_OBORUD = '+edit3.text+')');
   end;
   Close;
   Open;
 end;

[начинающий кодер]

Убери кавычки из названия таблицы user.

[Dark_Spirit]

вот когда-то нашёл в такие функции:
function tform1.ConvertOemToAnsi(const S: string): string;
{ ConvertOemToAnsi translates a string from the OEM-defined
character set into either an ANSI or a wide-character string }
{$IFNDEF WIN32}
var
Source, Dest : array[0..255] of Char;
{$ENDIF}
begin
{$IFDEF WIN32}
SetLength(Result, Length(S));
if Length(Result) > 0 then
OemToAnsi(PChar(S), PChar(Result));
{$ELSE}
if Length(Result) > 0 then
begin
OemToAnsi(StrPCopy(Source, S), Dest);
Result := StrPas(Dest);
end;
{$ENDIF}
end; { ConvertOemToAnsi }

function tform1.ConvertAnsiToOem(const S: string): string;
{ ConvertAnsiToOem translates a string into the OEM-defined character set }
{$IFNDEF WIN32}
var
Source, Dest : array[0..255] of Char;
{$ENDIF}
begin
{$IFDEF WIN32}
SetLength(Result, Length(S));
if Length(Result) > 0 then
AnsiToOem(PChar(S), PChar(Result));
{$ELSE}
if Length(Result) > 0 then
begin
AnsiToOem(StrPCopy(Source, S), Dest);
Result := StrPas(Dest);
end;
{$ENDIF}
end; { ConvertAnsiToOem }
попробуйте использовать одну из них, должно подойти

[maLoy*508]

Сообщение от начинающий кодер

Убери кавычки из названия таблицы user.

кавычки в названии таблицы user нужны... так как user, как я понял зарезервированное слово.... вот так вот...

2 Dark_Spirit:
а можно как нибудь на примере? а то действительно, как у Вас написано:
"Тяжело быть бестолковым..... "

[Dark_Spirit]

Add('OTDELI.ID_OTDELA ='+''''+Edit1.Text+'''');

эту строку я бы переписал так:
Add('OTDELI.ID_OTDELA ='+chr(39)+ConvertOemToAnsi(Edit1.T ext)+chr(39));

[maLoy*508]

все равно я что то не правильно делаю....
процедуру заранее надо описывать или подключать какую-нибудь библиотеку??

[Dark_Spirit]

смотри я тебе в #25 кину две функции, подключи их в спой проект, млин ну как просто новую процедуру дописываешь

[maLoy*508]

все равно таже ошибка))