Chk4me BB-Code by Metal [SRC]

[Expermicid]

El código del soft es este:

Código: delphi

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