VPF::Заполнить StringGrid данными - Форум программистов

ZZnOB

Дата 28.5.2010, 08:04 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 1.7.2009

Репутация: нет
Всего: нет

Доброго времени суток. Есть вот такой код:

Код


 
unit SysPars;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, RegExpr, Grids;
 
type
  TForm1 = class(TForm)
    OpenDialog1: TOpenDialog;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Memo1: TMemo;
    StringGrid1: TStringGrid;
    procedure Button1Click(Sender: TObject);
 
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
//Открыть файл
procedure TForm1.Button1Click(Sender: TObject);
begin
        if OpenDialog1.Execute then
                Edit1.Text:=OpenDialog1.FileName;
end;
//Очистить Memo
procedure TForm1.Button3Click(Sender: TObject);
begin
   Memo1.Text:='';
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
logf:TextFile;
S, protok,fprotok,lokip,flokip,vip,fvip:String;
RegEx,RegEx1,RegEx2:TRegExpr;
ReadCount       : Integer;
RowNum  : Integer;
RowLength       : Integer;
Begin
        if not FileExists(Edit1.Text) then begin
                ShowMessage('Файл не найден');
    Exit;
        end;
        AssignFile(logf,Edit1.Text);
        Reset (logf);
  RegEx:=TregExpr.Create;
  RegEx1:=TregExpr.Create;
  RegEx2:=TregExpr.Create;
  RowLength := StringGrid1.ColCount - StringGrid1.FixedCols;
  ReadCount := 1;
while Not EOF(logf)
        do
                begin
                        ReadLn(logf,S);
RegEx.Expression:='\s*?ipproto=*?(.*?)\s';
  if RegEx.Exec(S) then
  protok:=RegEx.Match[1];
  fprotok:=Copy(protok,Pos('=',protok)+1,length(protok));
 
RegEx1.Expression:='\s*?srcip=*?(.*?)\s';
  if RegEx1.Exec(S) then
  flokip:=RegEx1.Match[1];
  lokip:= Copy(flokip,Pos('=',flokip)+1,length(flokip));
RegEx2.Expression:='\s*?destip=*?(.*?)\s';
  if RegEx2.Exec(S) then
  fvip:=RegEx2.Match[1];
  vip:= Copy(fvip,Pos('=',fvip)+1,length(fvip));
  Memo1.Lines.Add('Протокол: '+fprotok +'  IPв: ' + lokip+'IPвнеш:' + vip);
  Inc(ReadCount);
  RowNum := StringGrid1.FixedRows + (ReadCount - 1) div RowLength;
  if RowNum > Pred(StringGrid1.RowCount) then begin
  StringGrid1.RowCount := StringGrid1.RowCount + 1;
  end;
  StringGrid1.Cells[1,RowNum]:=fprotok;
 end;
RegEx.Free;
RegEx1.Free;
RegEx2.Free;
CloseFile(logf);
ShowMessage('Конец');
End;
end.

На форме 3 кнопки, 1 едит, Мемо, и StringGrid. При выполнении программы данные в мемо есть, а в StringGreed нет, не могу понять почему.

cyberstream

Дата 28.5.2010, 17:46 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 138
Регистрация: 7.9.2006

Репутация: 1
Всего: 4

Дебажить пробовал?
Подозреваю, что в

Код


  RowNum := StringGrid1.FixedRows + (ReadCount - 1) div RowLength;
  if RowNum > Pred(StringGrid1.RowCount) then begin
  StringGrid1.RowCount := StringGrid1.RowCount + 1;
  end;

происходит не то, что ты ожидаешь

--------------------

Не знаешь кого спросить? - Спроси google!

Keeper89

Дата 29.5.2010, 02:38 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 9
Всего: 58

Цитата(ZZnOB @ 28.5.2010, 08:04

)

Судя по всему парсинг реализован неверно.

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »