主页 / 问题 / 1109561
Accepted
Rudyboy69
Asked:2020-04-13 15:01:20 +0800 CST2020-04-13 15:01:20 +0800 CST

如果有一个（按钮），则从每行文本的开头删除一个空格

  • 772

我需要实现一个按钮，当单击该按钮时，将在整个文本的行首删除一个空格（如果有的话）。我在拉撒路用帕斯卡写作。

举个例子：一个按钮的代码，当按下时，每一行的所有文本都加一个空格

    procedure TMainForm.btnIndentClick(Sender: TObject);
var
  i: integer;
  S: String;
begin
   memText.Lines.BeginUpdate;
   try
   for i:=0 to memText.Lines.Count-1 do begin
    S := memText.Lines[i];
    if S<>'' then
    memText.Lines[i] := ' '+S;
   end;
   finally
     memText.Lines.EndUpdate
   end;
end;
pascal

1 个回答

  1. Best Answer
    procedure TMainForm.btnIndentClick(Sender: TObject);
var
  i: integer;
  S: String;
begin
   memText.Lines.BeginUpdate;
   try
   for i:=0 to memText.Lines.Count-1 do begin
    S := memText.Lines[i];
    if (S<>'') and (S[1] = ' ') then
       memText.Lines[i] := S.Substring(1);
   end;
   finally
     memText.Lines.EndUpdate
   end;
end;
    • 0

相关问题