Subversion Repositories indexer_suite

Rev

Rev 2 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2 Rev 4
Line 1... Line 1...
1
unit RedundancyForm;
1
unit RedundancyForm;
2
 
2
 
-
 
3
// TODO: man soll einstellen können, dass er redundanzen nur innerhalb eines datenträgers (= root node) findet
-
 
4
 
3
interface
5
interface
4
 
6
 
5
uses
7
uses
6
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
8
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
7
  System.Classes, Vcl.Graphics, AdoDb,
9
  System.Classes, Vcl.Graphics, AdoDb,