델파이 : 스레드에서 문자열을 할당하는 동안 폼이 얼어 짐

Question

아래 코드는 스레드에 있습니다.

Tf1 := TFileStream.Create(LogsPath,fmOpenRead or fmShareDenyNone); 
... 
str:=TStringList.Create; 
str.LoadFromStream(tf1); 
... 
SynEditLog.Lines.Assign(str); // I do this with Synchronize 

텍스트 문서에는 30,000 개의 문자열이 있습니다.

SynEdit에 문자열을 할당하는 동안 양식이 고정됩니다.

문자열로 문자열을로드하려면 40 초가 필요합니다. 할당 - 8 초를 사용하는 경우.

이 양식의 상태를 방지하려면 어떻게해야합니까?

감사합니다 !!!

Answer 1

모든 작업이 Assign에 대한 호출에서 발생하기 때문에 Application.ProcessMessages이 여기에서 전혀 도움이되지 않을 것이라고 생각하지 않습니다.

SynEditLog은 BeginUpdate/EndUpdate 가지가 있습니까? 나는 그들을 사용하고 어떻게 가는지 볼 것입니다. 예를 들어 : 그에 대응

SynEditLog.BeginUpdate; 
try 
    SynEditLog.Lines.Assign(str); 
finally 
    SynEditLog.EndUpdate; 
end; 

당신은 라인 속성에 문자열 목록의 할당을 분해해야합니다

작동하지 않습니다. 이런 식으로 뭔가 :

var 
    LIndex: integer; 
begin 
    SynEditLog.BeginUpdate; 
    try 
    //added: set the capacity before adding all the strings. 
    SynEditLog.Lines.Capacity := str.Capacity; 
    for LIndex := 0 to str.Count - 1 do 
    begin 
     SynEditLog.Lines.Add(str[LIndex]); 
     if LIndex mod 100 = 0 then 
     Application.ProcessMessages; 
    end; 
    finally 
    SynEditLog.EndUpdate; 
    end; 
end; 

(참고 : 브라우저에 직접 입력 코드는 컴파일되지 않을 수 있음)이, 1000

도 5000처럼, 더 큰 무언가에 LIndex mod 100 = 0을 늘려보십시오 너무 느린 경우

을

N @

Answer 2

GUI 스레드를 사용하여 컨트롤에 30,000 줄을 추가하기 때문에 양식이 멈추는 경우가 많습니다. 자연히 시간이 걸립니다. 이 시간 동안 GUI는 스레드를 사용 중이므로 업데이트 할 수 없으므로 고정됩니다.

한 번에 몇 줄 (또는 단 하나)을 추가하고 각 추가 사이에 GUI (Application.ProcessMessages (감사합니다 gordy))를 업데이트하면됩니다.