小
小小小小大
Unregistered / Unconfirmed
GUEST, unregistred user!
请问如何判断一个变量的开头几个字母...?
秋
秋之叶
Unregistered / Unconfirmed
GUEST, unregistred user!
是String类型的？
for i := 1 to Length(变量） do
if 变量 = 你需要的字母 then
Break;
for i := 1 to Length(变量） do
if 变量 = 你需要的字母 then
Break;
一
一个过客
Unregistered / Unconfirmed
GUEST, unregistred user!
蠢问题！话都说不清楚居然还写程序。
H
HunterTeam
Unregistered / Unconfirmed
GUEST, unregistred user!
楼上的老兄，说话不要过分。
是变量名还是变量值？
变量值的话：Copy(变量，1,X)
X就是你所要的从开头开始的字母数.
是变量名还是变量值？
变量值的话：Copy(变量，1,X)
X就是你所要的从开头开始的字母数.
J
jrq
Unregistered / Unconfirmed
GUEST, unregistred user!
[
] 混沌学模糊理论
] 混沌学模糊理论
影
影 子
Unregistered / Unconfirmed
GUEST, unregistred user!
//字母个数？
function GetStrNum(str: string):integer;
var
i: integer;
begin
result := 0
for i := 1 to length(str) do
begin
if (str in ['a'..'z','A'..'Z']) then
begin
result := result + 1;
end
else
exit;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(inttostr(GetStrNum(edit1.Text)));
end;
function GetStrNum(str: string):integer;
var
i: integer;
begin
result := 0
for i := 1 to length(str) do
begin
if (str in ['a'..'z','A'..'Z']) then
begin
result := result + 1;
end
else
exit;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(inttostr(GetStrNum(edit1.Text)));
end;
S
shangshang
Unregistered / Unconfirmed
GUEST, unregistred user!
大家来猜噢！！！！
S
sydanlong
Unregistered / Unconfirmed
GUEST, unregistred user!
pos(要找的字串,從這一堆字串中)
試試,可能這樣要快且能夠達到你的目的
試試,可能這樣要快且能夠達到你的目的
