Question

如何在Delphi6中将索引的指定字符设置为空字符？

procedure TMainForm.Button1Click(Sender: TObject);
var i: integer;
s_ord_account : String[10];
begin
   s_ord_account := '0930002930' ;
   i := 1;
REPEAT
   IF s_ord_account[i] = '0' THEN
    s_ord_account[i] := '';
  INC(i);
  UNTIL (i=5) OR (s_ord_account[i] <> ' ');
 MessageDlg(s_ord_account,mtError, mbOKCancel, 0);

yend;

当我尝试执行此代码时出现错误

[错误] Main.pas（30）：不兼容的类型：'Char'和'String'

Answer 1

首先，停止使用Turbo Pascal字符串并使用本机Delphi字符串类型string会很有意义。

没有空角色这样的东西。您可以使用Delete函数从字符串中删除字符。一种更简单的方法是使用StringReplace函数。这使得您的代码完全不必要。

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  s: string;

begin
  s := StringReplace('0930002930', '0', '', [rfReplaceAll]);
  Writeln(s);
end.

<强>输出

在Delphi6中清空的字符

1 个答案: