Форум: "Основная";
Текущий архив: 2003.08.21;
Скачать: [xml.tar.bz2];
ВнизКодировка Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2003.08.21;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c