Subversion Repositories jumper

Rev

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

Rev 9 Rev 11
Line 10... Line 10...
10 
procedure ClearImage(Image: TImage; BackgroundColor: TColor);
 10 
procedure ClearImage(Image: TImage; BackgroundColor: TColor);
11 
function Ganzzahlig(num: extended): boolean;
 11 
function Ganzzahlig(num: extended): boolean;
12 
function Explode(Separator, Text: String): TStringList;
 12 
function Explode(Separator, Text: String): TStringList;
13 
function Position(FullString, Search: String): Integer;
 13 
function Position(FullString, Search: String): Integer;
14 
function ReadFile(InputFile: string): string;
 14 
function ReadFile(InputFile: string): string;
15 
function RemoveLineBreaks(inp: string): string;
 - 
 
16 
 
 15 
 
17 
implementation
 16 
implementation
18 
 
 17 
 
19 
resourcestring
 18 
resourcestring
20 
  LNG_COULD_NOT_OPEN_FILE = 'Could not open file "%s".';
 19 
  LNG_COULD_NOT_OPEN_FILE = 'Could not open file "%s".';
Line 127... Line 126...
127 
    result := result + tmp + #13#10;
 126 
    result := result + tmp + #13#10;
128 
  end;
 127 
  end;
129 
  CloseFile(f);
 128 
  CloseFile(f);
130 
end;
 129 
end;
131 
 
 130 
 
132 
function RemoveLineBreaks(inp: string): string;
 - 
 
133 
begin
 - 
 
134 
  inp := StringReplace(inp, #13, '', [rfReplaceAll]);
 - 
 
135 
  inp := StringReplace(inp, #10, '', [rfReplaceAll]);
 - 
 
136 
  result := inp;
 - 
 
137 
end;
 - 
 
138 
 
 - 
 
139 
end.
 131 
end.
140 
 
 132 
 
141 

            133