相关疑难解决方法(0)

我有一个字符串,让我们调用它MyStr.我试图摆脱字符串中的每个非字母字符.就像在IM中像MSN和Skype一样,人们将他们的显示名称设置为[-Bobby-].我想删除该字符串中不是字母字符的所有内容,所以我留下的就是"名称".

我怎么能在Delphi中做到这一点？我正在考虑创建一个TStringlist并在那里存储每个有效字符,然后IndexOf用来检查char是否有效,但我希望有一个更简单的方法.

使用此程序，我试图读取文件并将其随机打印到控制台。我想知道是否必须为此使用数组。例如，我可以将字符串分配到数组中，然后从数组中随机打印。但是，我不确定该如何处理。另一个问题是，当前程序无法从文件中读取第一行。我有一个text.txt包含

1. ABC
2. ABC
...
6. ABC

下面是我的代码。

type
  arr = record 
  end;

var
  x: text;
  s: string;
  SpacePos: word;
  myArray: array of arr;
  i: byte;

begin
  Assign(x, 'text.txt');
  reset(x);
  readln(x, s); 
  SetLength(myArray, 0);
  while not eof(x) do
  begin
    SetLength(myArray, Length(myArray) + 1);
    readln(x, s);
    WriteLn(s);
  end;
end.

请让我知道如何解决这个问题！