Отобразить строку на определённую структуру
Falk0ner, вс, 06/07/2008 - 15:34.
Отобразить строку на определённую структуру
type
TEmployee = record
cNo: array [0..3] of Char;
cName: array [0..7] of Char;
end;
PEmployee = ^TEmployee;
procedure ParseData;
const
sData = '0001Mosquito';
var
sNo, sName: string;
begin
with PEmployee(Pointer((@sData)^))^ do
begin
sNo := cNo; // sNo = '0001'
sName := cName; // sName = 'Mosquito'
end
end;
TEmployee = record
cNo: array [0..3] of Char;
cName: array [0..7] of Char;
end;
PEmployee = ^TEmployee;
procedure ParseData;
const
sData = '0001Mosquito';
var
sNo, sName: string;
begin
with PEmployee(Pointer((@sData)^))^ do
begin
sNo := cNo; // sNo = '0001'
sName := cName; // sName = 'Mosquito'
end
end;
http://delphiworld.narod.ru/ DelphiWorld 6.0
Отправить комментарий