Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2012.01.15;
Скачать: CL | DM;

Вниз

Array of Char to String (ANSIString)=:    Найти похожие ветки 

 
petvv   (2011-10-05 09:28) [0]

Предыстория такая. Cофтина написана на D7 и SDK тоже в SDK есть функция
function GetCardProps(Pump : Integer; Product : Byte; var CardType : Integer;
 var CardNumber : TCardNum; var Balance : Double) : Boolean;


где
TCardNum = array [0..MAX_CARD_NUM_LEN] of Char;

Сейчас пишу на D XE:


function GetCardProps(Pump : Integer; Product : Byte; var CardType : Integer;
 var CardNumber : TCardNum; var Balance : Double) : Boolean;
var
 psa: PSafeArray;
 rStr:String;
 KardNum:ANSIString; //Делал и String
begin
  KardNum:="";
  if True then begin
   SafeArrayUnaccessData(psa);
   ACOS.Connect1;
   rStr:=HReadRecord($ff01,1,8,0);
   rStr:=Copy(rStr,4,5);
   KardNum:=CardNumber; // KardNum="" =>?????????????
   if KardNum=rStr then
     begin
       CardType := 0;
       Balance := 0;
       Result := True;
     end;
  end
  else
     Result := False;
end;

CardNumber:=(#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#0,#1,#0,#0,#0,#0,#0,#0,#0,#0,#0)
это в дебагере.
Собственно вопрос почему получаю пустую строку ???


 
Омлет ©   (2011-10-05 09:31) [1]

Char -> AnsiChar
String -> AnsiString


 
petvv   (2011-10-05 09:45) [2]

Не Char а Array of Char

Если делать KardNum:=AnsiChar(CardNumber);

То возникают грабли

E2089 Invalid typecast


 
MBo ©   (2011-10-05 09:48) [3]

Array of AnsiChar
логично, так ведь?



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

Текущий архив: 2012.01.15;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.009 c
2-1317364016
Phoenix
2011-09-30 10:26
2012.01.15
Работа с Вебсервисами с помощью Delphi2009


4-1253534102
__Алексей__
2009-09-21 15:55
2012.01.15
Доступ из службы к сетевому компбютеру


3-1269856885
Чайник
2010-03-29 14:01
2012.01.15
TClientDataSet - перевод в режим редактирования.


15-1317414603
Юрий
2011-10-01 00:30
2012.01.15
С днем рождения ! 1 октября 2011 суббота


2-1317818236
Alex_C
2011-10-05 16:37
2012.01.15
Копирование указателей