求助

[seikoo]

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

[tommy_linux]

你是求输入的值还是求个数呀？

值： s:=Edit1.text;

个数: s:=Length(Edit1.text);

[seikoo]

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

[阿发伯]

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

[ehom]

S[0]...S[Length(Edit1.text)-1]

[copy_paste]

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;