New feature! Upgrade and increase expert visibility of your issues with Priority Questions.
procedure TForm2.DOreading(Ime:string); var DATAfile: textfile; READline: string; begin AssignFile( DATAfile,Ime); Reset( DATAfile); While not EOF ( DATAfile) do begin ReadLn( DATAfile,READline); F.Memo1.Lines.Add (READline); end; // in this way doesent work F. memo1.SelStart := length(memo1.Text); F.memo1.Perform(EM_ScrollCaret,0,0); CloseFile( DATAfile); end;
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.