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

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

← →
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]

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

---

← →
Palladin ©   (2003-08-08 15:47) [3]

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

---

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

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



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