Есть программа, которая создает лог-файл.
Это пример файла журнала, который он создает:
Эта программа загружает этот файл журнала в TStringGrid. Файл журнала разделен табуляцией. В ячейке может быть пробел " ".
Как я могу использовать TStringGrid или альтернативу для загрузки в него такого файла журнала, как эта программа?
Спасибо!
Эта процедура загружает журнал в список строк. Каждой строке журнала присваивается свойство CommaText соответствующего строку в элементе управления сеткой. Это свойство автоматически разбивает в строке токены, разделенные запятыми и пробелами. Если у вас более новая версия Delphi, вы можете вместо этого использовать свойство DelimitedText. , что будет более уместно, если журнал может содержать запятые без кавычек.
procedure LoadLogFile(const FileName: TFileName; Grid: TStringGrid);
var
LogFile: TStrings;
i: Integer;
begin
LogFile := TStringList.Create;
try
LogFile.LoadFromFile(FileName);
Grid.RowCount := LogFile.Count;
for i := 0 to Pred(LogFile.Count) do
Grid.Rows[i].CommaText := LogFile[i];
finally
LogFile.Free;
end;
end;
Grid.Rows[i].Delimiter := #9, затемGird.Rows[i].StrictDelimiter := True, а затем используйтеGrid.Rows[i].DelimitedText, а неGrid.Rows[i].CommaText. Предполагается, чтоGrid.Rows[i]на самом делеTStrings, я этого не проверял. 15.07.2011