source: tags/1.0.0/Forms/UFormTargetCode.pas

unit UFormTargetCode;

{$mode delphi}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  Menus, ActnList, strutils;

type

  { TFormTargetCode }

  TFormTargetCode = class(TForm)
    AShrinkCode: TAction;
    AFormatCode: TAction;
    ActionList1: TActionList;
    MemoTarget: TMemo;
    MenuItem1: TMenuItem;
    MenuItem20: TMenuItem;
    PopupMenuTarget: TPopupMenu;
    procedure AFormatCodeExecute(Sender: TObject);
    procedure AShrinkCodeExecute(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  FormTargetCode: TFormTargetCode;

implementation

{$R *.lfm}

{ TFormTargetCode }

procedure TFormTargetCode.AFormatCodeExecute(Sender: TObject);
var
  Source: string;
  NewSource: string;
  Indent: Integer;
  I: Integer;
const
  IndentText = '  ';
begin
  Source := MemoTarget.Text;
  NewSource := '';
  Indent := 0;
  for I := 1 to Length(Source) do begin
    if Source[I] = '[' then begin
      NewSource := NewSource + LineEnding + DupeString(IndentText, Indent) + Source[I] + LineEnding ;
      Inc(Indent);
      NewSource := NewSource + DupeString(IndentText, Indent);
    end
    else if Source[I] = ']' then begin
      Dec(Indent);
      NewSource := NewSource + LineEnding + DupeString(IndentText, Indent) + Source[I] + LineEnding + DupeString(IndentText, Indent);
    end
    else if Ord(Source[I]) > $20 then
      NewSource := NewSource + Source[I];
  end;
  MemoTarget.Text := NewSource;
end;

procedure TFormTargetCode.AShrinkCodeExecute(Sender: TObject);
var
  Source: string;
  Pos: Integer;
  I: Integer;
begin
  Source := MemoTarget.Text;
  Pos := 1;
  for I := 1 to Length(Source) do begin
    if Source[I] > ' ' then begin
      Source[Pos] := Source[I];
      Inc(Pos);
    end;
  end;
  SetLength(Source, Pos - 1);
  MemoTarget.Text := Source;
end;

end.