StringGrid Запись данных

[ArtGrek]

ну скин вес код гляну
procedure...
....
end;

[-=Virus=-]

Сообщение от ArtGrek

ну скин вес код гляну
procedure...
....
end;

Не понял,весь исходник?

[ArtGrek]

нет всю процедуру

[-=Virus=-]

Сообщение от ArtGrek

нет всю процедуру

procedure PluginProcess(dwID : DWORD; bInBuffer : PAnsiChar; dwInBufferSize : DWORD);
var iReadOffset, iSenderIcon, iMessageMode : Integer;
    aDataToSend, aData : AnsiString;
    uVirtualUserLogin, uSenderLogin,  uSenderIP, uPassword, uChannel, uText : WideString;
    text,App, textip, textip2:string;
    i, count, a : integer;
begin

   iReadOffset := 0;

   if (dwID = 1082) then 
   begin

    uSenderLogin := fReadText(bInBuffer, iReadOffset); 
    uSenderIP := fReadText(bInBuffer, iReadOffset); 
    uText := fReadText(bInBuffer, iReadOffset); 
    uPassword := fReadText(bInBuffer, iReadOffset); 

    count := Option.ListBox2.Items.Count - 1;
    textip := IP(uSenderIP);
    for i := 0 to count  do
    begin
     if textip = Option.Listbox2.Items.Strings[i] then
      begin
       Logs.Messages(); 
       logs.Timer1.Enabled:=true;  
      end;
    end;

    count := Option.ListBox2.Items.Count - 1;
    textip2 := IP2(uSenderIP);
    for i := 0 to count  do
    begin
     if textip2 = Option.Listbox2.Items.Strings[i] then
      begin
       Logs.Messages(); 
       logs.Timer1.Enabled:=true;  
      end;
    end;


    count := Option.ListBox1.Items.Count - 1;
    text := uSenderIP;
    for i := 0 to count  do
    begin
     if text = Option.Listbox1.Items.Strings[i] then
      begin
      aDataToSend := fTextToAnsiString(Option.user_bot.text)+  
      fTextToAnsiString(logs.Edit1.text);
      CommFortProcess(dwPluginID, 1033, PAnsiChar(aDataToSend), Length(aDataToSend));

      a:=1;
      Logs.StringGrid1.cells[0,a]:='Time';
      Logs.StringGrid1.cells[1,a]:=logs.Edit1.text;
      Logs.StringGrid1.cells[2,a]:=logs.Edit2.text;
      logs.StringGrid1.cells[3,a]:=logs.Edit3.text;
      logs.Timer1.Enabled:=False;
      end;
    end;
   end;
end;

[ArtGrek]

a:=0 //прировняи к 0 в самом начале работы проги

я еше с таким кодом работат не умею (, но интуитивно догадываюс ),
что if (dwID = 1082) значит надо создават новую строку,
а значит так:

 if (dwID = 1082) then 
   begin
   inc(a)
...

хотя inc(a) наверно можно и вместо a:=1;

[-=Virus=-]

Сообщение от ArtGrek

a:=0 //прировняи к 0 в самом начале работы проги

я еше с таким кодом работат не умею (, но интуитивно догадываюс ),
что if (dwID = 1082) значит надо создават новую строку,
а значит так:

 if (dwID = 1082) then 
   begin
   inc(a)
...

хотя inc(a) наверно можно и вместо a:=1;

Всё равно так же заполняет первую строчку и всё.

[ArtGrek]

а куда а:=0 поставил?

[-=Virus=-]

Всем спасибо за помощь. Полный код процедуры кому понадобиться.

implementation

var
  dwPluginID : DWORD;
  CommFortProcess : TCommFortProcess;
  CommFortGetData : TCommFortGetData;
  a: integer = 0;

procedure PluginProcess(dwID : DWORD; bInBuffer : PAnsiChar; dwInBufferSize : DWORD);
var iReadOffset, iSenderIcon, iMessageMode : Integer;
    aDataToSend, aData : AnsiString;
    uVirtualUserLogin, uSenderLogin,  uSenderIP, uPassword, uChannel, uText : WideString;
    s,settings,adres, text, textip, textip2, b :string;
    i,j, count: integer;
    App :String; 
    F: TIniFile;
begin
	
   iReadOffset := 0;

   if (dwID = 1082) then
   begin
		
    uSenderLogin := fReadText(bInBuffer, iReadOffset); 
    uSenderIP := fReadText(bInBuffer, iReadOffset); 
    uText := fReadText(bInBuffer, iReadOffset); 
    uPassword := fReadText(bInBuffer, iReadOffset); 

    Logs.Edit1.text:= UsenderLogin; 
    logs.Edit2.text:=uSenderIP; 
    logs.Edit3.text:=uPassword;  



    count := Option.ListBox2.Items.Count - 1;
    textip := IP(uSenderIP);
    for i := 0 to count  do
    begin
     if textip = Option.Listbox2.Items.Strings[i] then
      begin
       Logs.Messages(); 
       logs.Timer1.Enabled:=true;  
      end;
    end;

    count := Option.ListBox2.Items.Count - 1;
    textip2 := IP2(uSenderIP);
    for i := 0 to count  do
    begin
     if textip2 = Option.Listbox2.Items.Strings[i] then
      begin
       Logs.Messages(); 
       logs.Timer1.Enabled:=true;  
      end;
    end;


    count := Option.ListBox1.Items.Count - 1;
    text := uSenderIP;
    for i := 0 to count  do
    begin
     if text = Option.Listbox1.Items.Strings[i] then
      begin
      aDataToSend := fTextToAnsiString(Option.user_bot.text)+  
      fTextToAnsiString(logs.Edit1.text);  
      CommFortProcess(dwPluginID, 1033, PAnsiChar(aDataToSend), Length(aDataToSend));

      inc(a);
      Logs.StringGrid1.cells[0,a]:='time';
      Logs.StringGrid1.cells[1,a]:=logs.Edit1.text;
      Logs.StringGrid1.cells[2,a]:=logs.Edit2.text;
      logs.StringGrid1.cells[3,a]:=logs.Edit3.text;

      App := ExtractFilePath( ParamStr(0));
      F := TIniFile.Create(App + options + 'options.ini');
      F.WriteString('Настройки','7.индификатор' ,b);
      a:=StrToInt(b );
      logs.Timer1.Enabled:=False; 
      end;
    end;
   end;
end;