Chip 1997 October/Chip_1997-10_cd.bin/tema/sw602/wintext/disk1/data.1/CLEANP.TXT

Text File | 1996-12-17 | 530b | 24 lines

program Spojenφ_odstavc∙;

var
  iStartLine : integer;

begin
  if (IsBlockSelected) then begin
    iStartLine := GetSelStartLine;
    if (GetCaretLine <= iStartLine) then begin
      iStartLine := GetSelStartLine;
      ChangeSelRanges;
    end;
    UnselectBlock;
    while PrevPara and (GetCaretLine <> iStartLine) do begin
      BackspaceDelete;
      InsertChar(' ');
    end;   { while }
  end
  else begin
    CaretHome;
    while NextPara do begin BackspaceDelete; InsertChar(' ');
end;
  end;
end.