(http://i.imgur.com/k5uMpHp.png)
El código del soft es este:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
Label1: TLabel;
Label2: TLabel;
Memo2: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
ReporteO: TStrings;
i, o, OkPos, Deteccion: integer;
begin
memo1.Text:= trim(memo1.Text);
ReporteO:= tstringlist.Create;
o:= 0;
Deteccion:= 0;
for i:= 0 to memo1.Lines.Count -1 do
begin
OkPos:= 0;
if not (odd(i)) then
begin
reporteO.Add(memo1.lines.Strings[i] + ' - ' + memo1.lines.Strings[i+1]);
OkPos:= pos('Ok', ReporteO.Strings[o]);
if OkPos <> 0 then
begin
ReporteO.Strings[o]:= memo1.lines.Strings[i] + ' - ' + '[color=#008000]Ok[/color]'
end else
begin
ReporteO.Strings[o]:= memo1.lines.Strings[i] + ' - [color=#BF0000]' + memo1.lines.Strings[i+1] + '[/color]';
inc(Deteccion);
end;
inc(o);
end;
end;
memo2.Text:= '[u][i]Detecciones: [b]' + inttostr(Deteccion) + '/' + inttostr(ReporteO.Count) + '[/b][/i][/u]' + #13#10 + #13#10 + ReporteO.Text + #13#10 +
'[i][url=http://chk4me.com]BB-Code generado por Metal (UdTools.net), análisis por Chk4Me.com[/url][/i]';
memo2.SelectAll;
memo2.CopyToClipboard;
end;
end.
Autor: Metal_Kingdom
Saludos