Sử dụng Tiếp tục trong vòng lặp while

Question

Có thể tiếp tục sử dụng trong vòng lặp while khi làm việc với tệp văn bản không?

Tôi muốn thực hiện một số quy trình và kiểm tra một số giá trị. Nếu đúng, tôi muốn bỏ qua một lần lặp lại. Nếu sai, tôi muốn tiếp tục với các dòng tiếp theo (tiếp tục xử lý).

Tiếp tục trong trường hợp này có bỏ qua một lần lặp lại không?

Answer 1

Kiểm tra thậm chí không cần thiết. The documentation đã cho bạn biết câu trả lời:

Trong mã Delphi, quy trình tiếp tục khiến luồng kiểm soát tiến hành lần lặp tiếp theo kèm theo, trong khi hoặc lặp lại câu lệnh.

Lưu ý rằng không có cảnh báo nào về vòng lặp đang làm. Câu lệnh Tiếp tục chuyển sang lần lặp tiếp theo của bất kỳ vòng lặp nào. Trong trường hợp của bạn, điều đó có nghĩa là Eof sẽ được kiểm tra một lần nữa, và sau đó cơ thể của vòng lặp sẽ chạy.

Answer 2

Có vẻ một bài kiểm tra nhanh 30 giây sẽ trả lời nhanh hơn bài đăng ở đây. :)

program Project2; 

{$APPTYPE CONSOLE} 

uses 
    SysUtils; 

var 
    i, j: Integer; 

begin 
    j := 0; 
    i := 0; 
    while i < 10 do 
    begin 
    Inc(i); 
    if Odd(i) then 
     Continue; 
    Inc(j); 
    WriteLn(Format('i = %d, j = %d', [i, j])); 
    end; 
    ReadLn; 
end. 

Lưu ý rằng i được tăng lên trước khi cuộc gọi đến Continue, mà kết quả trong j hiển thị số lẻ, tôi hiển thị even? j chỉ tăng lên khi vòng lặp vượt qua kiểm tra Continue.

A while hoạt động theo cách tương tự cho dù bạn đang tăng số nguyên, nối một chuỗi hoặc đọc từ tệp văn bản. A while là while là while bất kể bạn sử dụng nó như thế nào. Bạn chỉ cần chắc chắn rằng, trong mã của bạn ở trên, rằng DoSomething thực sự đọc dòng tiếp theo từ tệp hoặc bạn sẽ kết thúc trong một vòng lặp liên tục.