/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. |