Joined
Last Seen
0 Reputation Points
Unknown Quality Score
No one has voted on any posts yet. Votes from other community members are used to determine a member's reputation amongst their peers.
0 Endorsements
Ranked #55.0K
2 Posted Topics
Hello! How to draw rectangle in Delphi (using [U]timer [/U]component). Thanx!
[code] procedure TForm2.Button1Click(Sender: TObject); var s:string; i,count:integer; begin s:=edit1.Text; count:=0; for i:=1 to length(S) do if Pos('111111', Edit1.Text) <> 0 then label2.caption:='Yes: 111111!' else label2.caption:='No: 111111!'; end; [/code] someone will be upshot use "while" OR "repeat..until"
The End.