lisp2arx
Visual Programming for AutoLisp Mathématiques en programmation Lisp.. doc2cpp,doc2lsp, sld2lsp, bmp2dcl, free__GifCcapture for all-CAD'platforms.. 		Lista Forumurilor Pe Tematici
lisp2arx | Reguli | Inregistrare | Login

POZE LISP2ARX

Nu sunteti logat. 		Nou pe simpatie:
Lorena13 pe Simpatie
Femeie
19 ani
Bucuresti
cauta Barbat
26 - 40 ani
lisp2arx / Delphi , InnoPascal / Delphi32 - Begin Block-Toggle  
Autor
Mesaj Pagini: 1
admin
Administrator

Din: Bucharest
Inregistrat: acum 14 ani
Postari: 517
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;



_______________________________________
pus acum 3 ani
   
Pagini: 1  

Mergi la