求Delphi高人帮帮忙。

显示全部楼层 · 2011-4-19 11:17:33

求Delphi高人帮帮忙。发一段源码，可以把TXT文件中的汉子，数字，字母分类整理出来，分别放在三个框框里

千问 · 2011-4-19 11:17:33

<pre id=\"best-answer-content\" class=\"reply-text mb10\">procedure TForm1.Button1Click(Sender: TObject);
var
i,iCode: Integer;
s: String;
b: Boolean;
begin
s := Trim(Edit1.Text);
Edit2.Text := \'\';
Edit3.Text := \'\';
Edit4.Text := \'\';
b := False;
for i := 1 to Length(s) do begin

if b then begin

b := False;

Continue;

end;

case ByteType(s,i) of

mbSingleByte: begin

iCode := Ord(s);

if iCode in [47..58] then

Edit2.Text := Edit2.Text s

else

Edit3.Text := Edit3.Text s

end;

mbLeadByte: begin

Edit4.Text := Edit4.Text s s[i 1];

b := True;

end;

end;
end;
end;

<h4 class=\"ask\">追问

<pre class=\"replyask-text\" id=\"content-4861202\">能把你做的程序发给我吗包括源码[email protected] 不胜感激啊

千问 · 2011-4-19 11:17:33

<pre class=\"replyask-text\" id=\"content-4863508\">这就是全部，没有其他了。