var sL: TStringList; f, {файл-источник} g : TextFile; {файл-приёмник} i : integer; s: string;
begin sL := TStringList.Create; sL.Sorted := FALSE; sL.Duplicates := dupIgnore; try sL.LoadFromFile(cFileNameF); for i:=0 to sL.Count-1 do begin s:=sL.Strings[i]; if Length(s)<d then s:=PadRight(s, d) else SetLength(s, d); sL.Strings[i]:=s; end; sL.SaveToFile(cFileNameG); except on Exception do WriteLn('Error'); end; sL.Free; writeln('Press Enter...'); readln; end.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.