Кодировка

← →
Alexey (2003-08-08 15:23) [0]

Мастера не могу понять почему не происходит перекодировка
код процедуры
procedure TForm1.FindInTable(Table:TTable;Field_find:string;privelege,
Address,Surname,NumberOfPeople,NumberOfPrivelege,
square:string);
var
text,res:PChar;
begin
if Table.Locate(Field_find,EditFind.Text,[])then
begin
text:=PChar(Surname);
if cb1.Checked=true then
begin
OemToChar(text,res);
Look_for.Lines.Add("Фамилия: "+StrPas(res));
Look_for.Lines.Add("Адрес: "+Address);
Look_for.Lines.Add("Количество жильцов: "+NumberOfPeople);
Look_for.Lines.Add("Количество льготников: "+NumberOfPrivelege);
Look_for.Lines.Add("Льгота: "+privelege);
Look_for.Lines.Add("Площадь: "+square);
end;
end else
( "This count is not exist!"+#13+"Такой счет не существует!") Мастера не могу понять почему не происходит перекодировка
код процедуры
procedure TForm1.FindInTable(Table:TTable;Field_find:string;privelege,
Address,Surname,NumberOfPeople,NumberOfPrivelege,
square:string);
var
text,res:PChar;
begin
if Table.Locate(Field_find,EditFind.Text,[])then
begin
text:=PChar(Surname);
if cb1.Checked=true then
begin
OemToChar(text,res);
Look_for.Lines.Add("Фамилия: "+StrPas(res));
Look_for.Lines.Add("Адрес: "+Address);
Look_for.Lines.Add("Количество жильцов: "+NumberOfPeople);
Look_for.Lines.Add("Количество льготников: "+NumberOfPrivelege);
Look_for.Lines.Add("Льгота: "+privelege);
Look_for.Lines.Add("Площадь: "+square);
end;
end else
Look_for.Lines.Add("This count is not exist!"+#13+"Такой счет не существует!");
end;
при отладке показывает что переменной res присваевается nil
кто зает в чем поблема подскажите please:)))

← →
Palladin © (2003-08-08 15:34) [1]

а ты память выделять не пробовал под данные?

← →
Alexey (2003-08-08 15:42) [2]

нет, а надобыло что-то не подумал

сюда часто попадают те кто не подумал...
вот подумай...

Кодировка Найти похожие ветки