Changeset 4 for tools/Delphi translator


Ignore:
Timestamp:
Jan 8, 2009, 1:45:23 PM (16 years ago)
Author:
george
Message:
  • Přidáno: Překládací program přímo pro Lazarus namísto Delphi.
  • Upraveno: Překladový soubor je nyní kódován v UTF-8.
Location:
tools/Delphi translator
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • tools/Delphi translator

    • Property svn:ignore

      •  

        old new  
        33*.identcache
        44*.dsk
         5backup
         6*.~dsk

  • tools/Delphi translator/UMainForm.pas

    r2 r4  
    5252    Result := AnsiCompareText(Item1.Caption, Item2.Caption)
    5353  else
    54     Result := AnsiCompareText(Item1.SubItems[Data-1],
    55       Item2.SubItems[Data-1]);
     54    Result := AnsiCompareText(Item1.SubItems[Data - 1],
     55      Item2.SubItems[Data - 1]);
    5656  if not Ascending then Result := -Result;
    5757end;
Note: See TracChangeset for help on using the changeset viewer.