各位大哥我是个新手，请问在delphi里怎么判断回车符呀

Question

各位大哥我是个新手，请问在delphi里怎么判断回车符呀
我想在一个字符串里找出回车符来
请帮帮忙吧

Answer 1

if key=#13 then在onkeypress事件中...

Answer 2

在字符串中也只能判断 #13 了.
可以使用pos()语句判断.

Answer 3

s:string;
for i:= 1 to length(s) do
if s=#13 or s=#10 then ...

Answer 4

p: pchar;
while p^<>#13 do
  nextchar(p);

Answer 5

s:string;
for i:= 1 to length(s) do
if s[i]=#13 or s[i]=#10 then ...

Answer 6

procedure TForm1.Button1Click(Sender: TObject);
var
  str : string;
  i : integer;
begin
  str:=memo1.Text;
  for i:=1 to length(str) do
    if str[i]=#13 then
      showmessage(inttostr(i));
end;

Answer 7

key是word型时　　key=13
key是char型时   key=#13

Answer 8

to  see:  
vk_LButton      =  $01;  
vk_RButton      =  $02;  
vk_Cancel        =  $03;  
vk_MButton      =  $04;      {  NOT  contiguous  with  L  &  RBUTTON  }  
vk_Back            =  $08;  
vk_Tab              =  $09;  
vk_Clear          =  $0C;  
vk_Return        =  $0D;  
vk_Shift          =  $10;  
vk_Control      =  $11;  
vk_Menu            =  $12;  
vk_Pause          =  $13;  
vk_Capital      =  $14;  
vk_Escape        =  $1B;  
vk_Space          =  $20;  
vk_Prior          =  $21;  
vk_Next            =  $22;  
vk_End              =  $23;  
vk_Home            =  $24;  
vk_Left            =  $25;  
vk_Up                =  $26;  
vk_Right          =  $27;  
vk_Down            =  $28;  
vk_Select        =  $29;  
vk_Print          =  $2A;  
vk_Execute      =  $2B;  
vk_SnapShot    =  $2C;  
vk_Copy            =  $2C  not  used  by  keyboards  }  
vk_Insert        =  $2D;  
vk_Delete        =  $2E;  
vk_Help            =  $2F;  
vk_A  thru  vk_Z  are  the  same  as  their  ASCII  equivalents:  'A'  thru  'Z'  }  
vk_0  thru  vk_9  are  the  same  as  their  ASCII  equivalents:  '0'  thru  '9'  }  
vk_NumPad0      =  $60;  
vk_NumPad1      =  $61;  
vk_NumPad2      =  $62;  
vk_NumPad3      =  $63;  
vk_NumPad4      =  $64;  
vk_NumPad5      =  $65;  
vk_NumPad6      =  $66;  
vk_NumPad7      =  $67;  
vk_NumPad8      =  $68;  
vk_NumPad9      =  $69;  
vk_Multiply    =  $6A;  
vk_Add              =  $6B;  
vk_Separator  =  $6C;  
vk_Subtract    =  $6D;  
vk_Decimal      =  $6E;  
vk_Divide        =  $6F;  
vk_F1                =  $70;  
vk_F2                =  $71;  
vk_F3                =  $72;  
vk_F4                =  $73;  
vk_F5                =  $74;  
vk_F6                =  $75;  
vk_F7                =  $76;  
vk_F8                =  $77;  
vk_F9                =  $78;  
vk_F10              =  $79;  
vk_F11              =  $7A;  
vk_F12              =  $7B;  
vk_F13              =  $7C;  
vk_F14              =  $7D;  
vk_F15              =  $7E;  
vk_F16              =  $7F;  
vk_F17              =  $80;  
vk_F18              =  $81;  
vk_F19              =  $82;  
vk_F20              =  $83;  
vk_F21              =  $84;  
vk_F22              =  $85;  
vk_F23              =  $86;  
vk_F24              =  $87;  
vk_NumLock      =  $90;  
vk_Scroll        =  $91;  Tab是#9  
回车是＃13，换行是＃10等？  

Answer 9

在onkeypress事件中
if key=vk_return then
begin
...
end;