Subversion Repositories jumper

Compare Revisions

Regard whitespace Rev 10 → Rev 11

/trunk/Functions.pas
12,7 → 12,6
function Explode(Separator, Text: String): TStringList;
function Position(FullString, Search: String): Integer;
function ReadFile(InputFile: string): string;
function RemoveLineBreaks(inp: string): string;
 
implementation
 
129,12 → 128,5
CloseFile(f);
end;
 
function RemoveLineBreaks(inp: string): string;
begin
inp := StringReplace(inp, #13, '', [rfReplaceAll]);
inp := StringReplace(inp, #10, '', [rfReplaceAll]);
result := inp;
end;
 
end.