1樓：匿名使用者
varmylist:tstringlist;
i:integer;
begin
if fileexists('c:\test.txt') thenbegin
mylist:=tstringlist.create;
mylist.loadfromfile('c:\test.txt');
edit1.text:=mylist.strings[i];
end;
mylist.free;
end;
試了很久，沒能實現一行一行的讀。上面的語句可以實現讀指定的行數。
2樓：經朔
讀文字，沒辦法一步到位吧？只能通過memo來實現，先放置乙個memo元件，設定其為隱藏，並且不要讓它自動轉行，即wrodwrap屬性設為false，這裡必須要設，否則句子過長自動換行後，memo會把它當成兩行處理，然後把檔案通過memo1.lines.
loadfromfile('檔名')載入。然後對這個memo進行操作。
procedure tform1.button1click(sender: tobject);
begin
edit1.text:=memo1.lines.strings[0];//固定讀取第一行
memo1.lines.delete(0);//把第一行刪掉，讓下面一行成為第一行
end;
在delphi中如何讀取一txt檔案的一指定行文字
3樓：匿名使用者
用memo元件
1、開啟文文字：memo1.lines.loadfromfile();
2、訪問某一行內容，比如取出memo1元件第5行的內容，把它顯示在form1的標題上：
form1.caption := memo1.lines.strings[4];
4樓：匿名使用者
用stringlist
varsl: tstringlist;
sl := tstringlist.create;
sl.loadfromfile('txt檔案路徑');
sl[行號];// 這就是指定行的內容
sl.free;
delphi逐行讀取指定文字內容的問題
5樓：金剛鑽
readln(f, s);
if s.substring(10,5)='abcde' thenbegin
ts := copy(s, 1, 5)+copy(s, 20, 5);
writeln(rf, ts);
end...
//while 結束
記錄下sc:=s
幹一行愛一行還是愛一行幹一行，對待職業應當幹一行愛一行還是愛一行幹一行。一辯反方
幹一行和愛一行是一種主次關係，所以要看你注重的哪個？愛是個過程，乾是個結果。如果你注重過程，那麼就是愛一行幹一行，在工作中體驗樂趣，如果你注重結果，那麼就是幹一行愛一行，為了結果而去適應。不過看樓主的話應該是更注重結果，那就要看你還了跑道之後的終點在 了，是否比現在的這個更有潛力了。要麼你調整工作心...
幹一行愛一行的事例,當代愛一行幹一行的例子
網上看完馬俊抄欣的事蹟後,內心久久不能平靜。作為一名執法者,深知執法工作的壓力與責任之大,常人都要叫苦的工作,馬俊欣一干就是25年,而且幹一行愛一行,無怨無悔。雖然我們不知道背後他付出了多少艱辛,但是可以肯定,他心懷堅忍不拔的信念,即使身體殘疾也毫不動搖。很多人覺得自己所從事的職業不如意,給自己的逃...
中我想把後面一行的文字剪下到前面一行不能剪下是怎麼回事
可能有二點 一是裡面含有段落格式 比如 右縮排 影響正常的編輯 二是在個別情況下會感覺電腦出了毛病似的，當然也不排除選擇方法不當等原因。嘗試解決 選擇這兩行，編輯 清除 格式，再剪下 貼上。我推測你的 指 那一行是不是限定了右側縮排位置，你看看你那一行的標尺，如果限定了，那一行再寫文字就自動跑到第二...