مشاهده نسخه کامل
: sandra2006
09-11-2006, 08:58
procedure TForm1.RasPhonebookChange(Sender: TObject);
var I: Integer; begin Memo3.Clear; for I:=0 to RasPhonebook.Count - 1 do with RasPhonebook[I] do begin Memo3.Lines.Add('---[' + IntToStr(I+1) + ']-------[ ' + Name + ' ]---'); Memo3.Lines.Add('---[ Username : ' + UserName + ' ]---'); Memo3.Lines.Add('---[ Password : ' + Password + ' ]---'); Memo3.Lines.Add('---[ ISP Phone : ' + PhoneNumber + ' ]---'); Memo3.Lines.Add(''); end; end;
دستور بالا اشکالش کجاست
هر زودتر جواب بدین ممنون میشم
var I: Integer; begin Memo3.Clear; for I:=0 to RasPhonebook.Count - 1 do with RasPhonebook[I] do begin Memo3.Lines.Add('---[' + IntToStr(I+1) + ']-------[ ' + Name + ' ]---'); Memo3.Lines.Add('---[ Username : ' + UserName + ' ]---'); Memo3.Lines.Add('---[ Password : ' + Password + ' ]---'); Memo3.Lines.Add('---[ ISP Phone : ' + PhoneNumber + ' ]---'); Memo3.Lines.Add(''); end; end;
دستور بالا اشکالش کجاست
هر زودتر جواب بدین ممنون میشم