Registriert seit: 30. Nov 2005
Ort: München
5.771 Beiträge
Delphi 10.4 Sydney
|
Re: CPU Auslastung für ein Programm begrenzen
18. Jul 2006, 14:02
Delphi-Quellcode:
//Assign .txt File for Input
{$I-}
AssignFile(txtFile, sPath);
Reset(txtFile);
{$I+}
if IOResult = 0 then
begin
iCount := 100;
iRow := 2;
While Not EOF(txtFile) Do
Begin
Application.ProcessMessages;
Readln(txtFile, sRow);
//Add sRow to Excel Cells
For i := 1 To 7 Do
Begin
case i of
1: oleExcelSheets.Cells[iRow, i].Value := Copy(sRow, 1, 2);
2: oleExcelSheets.Cells[iRow, i].Value := Copy(sRow, 3, 9);
3: oleExcelSheets.Cells[iRow, i].Value := Copy(sRow, 12, 9);
4: oleExcelSheets.Cells[iRow, i].Value := Copy(sRow, 21, 4);
5: oleExcelSheets.Cells[iRow, i].Value := Copy(sRow, 25, 4);
6: oleExcelSheets.Cells[iRow, i].Value := Copy(sRow, 29, 4);
7: oleExcelSheets.Cells[iRow, i].Value := Copy(sRow, 33, 3);
end;
End;
iRow := iRow + 1;
//Set Progress in Progress Bar
If iRow = iCount Then
Begin
ProgBar2.Position := Round((100 * iRow) / iAnzRec);
iCount := iCount + 100;
End;
End;
end;
CloseFile(txtFile);
Hallo Andreas,
wenn Du schon mit {$I-} und {$I+} arbeitest
solltest Du auch IOResult in irgendeiner Art und Weise abfragen.
Ansonsten finde ich die Version mit dem Zeileweisen einlesen
im Hinblick auf den Speicherverbrauch schonender als
die Version von xaromz.
Grüße
Klaus
Klaus
|
|
Zitat
|