comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

Chk4me BB-Code by Metal [SRC]

  • 0 Respuestas
  • 1207 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado Expermicid

  • *
  • Underc0der
  • Mensajes: 457
  • Actividad:
    0%
  • Reputación 0
  • _-Expermicid-_
    • Ver Perfil
  • Skype: expermicid.xd
« en: Abril 04, 2013, 02:56:33 pm »


El código del soft es este:

Código: Delphi
  1. unit Unit1;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     Button1: TButton;
  12.     Memo1: TMemo;
  13.     Label1: TLabel;
  14.     Label2: TLabel;
  15.     Memo2: TMemo;
  16.     procedure Button1Click(Sender: TObject);
  17.   private
  18.     { Private declarations }
  19.   public
  20.     { Public declarations }
  21.   end;
  22.  
  23. var
  24.   Form1: TForm1;
  25.  
  26. implementation
  27.  
  28. {$R *.dfm}
  29.  
  30. procedure TForm1.Button1Click(Sender: TObject);
  31. var
  32. ReporteO: TStrings;
  33. i, o, OkPos, Deteccion: integer;
  34. begin
  35. memo1.Text:= trim(memo1.Text);
  36. ReporteO:= tstringlist.Create;
  37. o:= 0;
  38. Deteccion:= 0;
  39.  
  40. for i:= 0 to memo1.Lines.Count -1 do
  41.   begin
  42.     OkPos:= 0;
  43.     if not (odd(i)) then
  44.       begin
  45.         reporteO.Add(memo1.lines.Strings[i] + ' - ' + memo1.lines.Strings[i+1]);
  46.  
  47.         OkPos:= pos('Ok', ReporteO.Strings[o]);
  48.  
  49.         if OkPos <> 0 then
  50.           begin
  51.             ReporteO.Strings[o]:= memo1.lines.Strings[i] + ' - ' + '[color=#008000]Ok[/color]'
  52.           end else
  53.           begin
  54.             ReporteO.Strings[o]:= memo1.lines.Strings[i] + ' - [color=#BF0000]' + memo1.lines.Strings[i+1] + '[/color]';
  55.             inc(Deteccion);
  56.           end;
  57.         inc(o);
  58.       end;
  59.   end;
  60.  
  61.  
  62. memo2.Text:= '[u][i]Detecciones: [b]' + inttostr(Deteccion) + '/' + inttostr(ReporteO.Count) + '[/b][/i][/u]' + #13#10 + #13#10 + ReporteO.Text + #13#10 +
  63.   '[i][url=http://chk4me.com]BB-Code generado por Metal (UdTools.net), análisis por Chk4Me.com[/url][/i]';
  64. memo2.SelectAll;
  65. memo2.CopyToClipboard;
  66. end;
  67.  
  68. end.

Autor: Metal_Kingdom

Saludos

 

¿Te gustó el post? COMPARTILO!



[Delphi] DH Junk Code Maker 0.4

Iniciado por BigBear

Respuestas: 0
Vistas: 1647
Último mensaje Julio 09, 2016, 11:40:32 am
por BigBear
[UNIT] PidGinRec by Metal

Iniciado por Expermicid

Respuestas: 0
Vistas: 1198
Último mensaje Junio 11, 2013, 01:00:27 pm
por Expermicid