求助

Question

如何求出随意输入的每个字符，个数不确定？

Answer 1

你是求输入的值还是求个数呀？值： s:=Edit1.text;个数:  s:=Length(Edit1.text);

Answer 2

是想求出每个位置上的字符。比如输入了12sd，可以求出，s[0]=1,s[1]=2,s[2]=s,s[3]=d,,,,类似，但输入的个数不确定。

Answer 3

可以在OnKeyPress中求得：
if Key >= #32 then
  ...

Answer 4

type
  PCharArr = ^TCharArr;
  TCharArr = array [0..MaxInt - 1] of Char;var
  S: string
  P: PCharArr;
begin
  S := 'aaaaaa;;;;;;;;;;;;;;;;;;dffddfsfewrwer';
  P := Pointer(S);
  
  P^[1]
  ...
  P^[Length(S) - 1]
end;