Subversion Repositories fastphp

Rev

Rev 91 | Rev 94 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 91 Rev 93
Line 439... Line 439...
439 
    end;
 439 
    end;
440 
 
 440 
 
441 
    procedure SpaceToTab(lines: {$IFDEF UNICODE}TStrings{$ELSE}TUnicodeStrings{$ENDIF}; indent: integer);
 441 
    procedure SpaceToTab(lines: {$IFDEF UNICODE}TStrings{$ELSE}TUnicodeStrings{$ENDIF}; indent: integer);
442 
    var
 442 
    var
443 
      i, spaces: integer;
 443 
      i, spaces: integer;
- 
 
 444 
      newval: string;
- 
 
 445 
      somethingchanged: boolean;
444 
    begin
 446 
    begin
- 
 
 447 
      somethingchanged := false;
445 
      for i := 0 to lines.Count-1 do
 448 
      for i := 0 to lines.Count-1 do
446 
      begin
 449 
      begin
447 
        spaces := SpacesAtBeginning(lines.Strings[i]);
 450 
        spaces := SpacesAtBeginning(lines.Strings[i]);
448 
        lines.Strings[i] := StringOfChar(#9, spaces div indent) + StringOfChar(' ', spaces mod indent) + Copy(lines.Strings[i], spaces+1, Length(lines.Strings[i])-spaces);
 451 
        newval := StringOfChar(#9, spaces div indent) + StringOfChar(' ', spaces mod indent) + Copy(lines.Strings[i], spaces+1, Length(lines.Strings[i])-spaces);
- 
 
 452 
        if lines.Strings[i] <> newval then
- 
 
 453 
        begin
- 
 
 454 
          somethingchanged := true;
- 
 
 455 
          lines.Strings[i] := newval;
- 
 
 456 
        end;
- 
 
 457 
      end;
- 
 
 458 
      if somethingchanged then
- 
 
 459 
      begin
- 
 
 460 
        SynEdit1Change(SynEdit1); // set the "changed" flag
449 
      end;
 461 
      end;
450 
    end;
 462 
    end;
451 
 
 463 
 
452 
    function SpacesAvailable(lines: {$IFDEF UNICODE}TStrings{$ELSE}TUnicodeStrings{$ENDIF}): boolean;
 464 
    function SpacesAvailable(lines: {$IFDEF UNICODE}TStrings{$ELSE}TUnicodeStrings{$ENDIF}): boolean;
453 
    var
 465 
    var