lisp2arx
Visual Programming for AutoLisp Mathématiques en programmation Lisp.. doc2cpp,doc2lsp, sld2lsp, bmp2dcl, free__GifCcapture for all-CAD'platforms..

Nou pe simpatie:
Elena01 25 ani

Femeie
25 ani
Braila
cauta Barbat
28 - 40 ani

lisp2arx Reguli Inregistrare Login PozeNu sunteti logat. Lista Forumurilor Pe Tematici

lisp2arx / Delphi , InnoPascal /

Delphi32 - Begin Block-Toggle

Pagini: 1

admin
Administrator
Din: Bucharest
Postari: 523

Which Begin..End , do you like?
Source1
Do you like upgrade Begin to Beginxx and End to Endxx?

Code:

Function StrRScan(const Str: PChar; Chr: Char): PChar;
var
  MostRecentFound: PChar;
begin
  if Chr = #0 then  Result := StrEnd(Str)
  else
  begin10
    Result := nil;

    MostRecentFound := Str;
    while True do
    begin11
      while MostRecentFound^ <> Chr do
      begin12
        if MostRecentFound^ = #0 then
          Exit;
        Inc(MostRecentFound);
      end12;
      Result := MostRecentFound;
      Inc(MostRecentFound);
    end11;
  end10;
end;

I reserarch ohter mode for redefine Block..End;

Code:

Function StrRScan(const Str: PChar; Chr: Char): PChar;
var
  MostRecentFound: PChar;
begin
  if Chr = #0 then
    Result := StrEnd(Str)
  else
  begin
    Result := nil;

    MostRecentFound := Str;
    while True do
    begin
      while MostRecentFound^ <> Chr do
      begin
        if MostRecentFound^ = #0 then
          Exit;
        Inc(MostRecentFound);
      end;
      Result := MostRecentFound;
      Inc(MostRecentFound);
    end;
  end;
end;

_______________________________________
http://www.puiubrat.3x.ro/lisp2arx/lisp ... O2UTM2.pdf

Pagini: 1

Mergi la