Форум: "Начинающим";
Текущий архив: 2012.01.15;
Скачать: [xml.tar.bz2];

Вниз

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;
Скачать: [xml.tar.bz2];

Наверх

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