怎么将这个字符串分行输出

Question

str:='GRENGgfv'+#13#10+'kuiekj5j5'+#13#10+'fherhgeb br'+#13#10+'nthehge';
怎么将这个字符串分成行showmeesage输出，即一行弹出一次。 这个字符串有四行，即showmessage四次。

Answer 1

str:='GRENGgfv'+#13#10+'kuiekj5j5'+#13#10+'fherhgeb br'+#13#10+'nthehge'; 
你要一行弹出一次？那就用Pos加delete函数去判断吧

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  Str, Str2 : String;
begin
  str := 'GRENGgfv' + #13#10 + 'kuiekj5j5' + #13#10 + 'fherhgeb br' + #13#10 + 'nthehge';
  while Pos(#13#10,Str) > 0 do
  begin
      Str2 := Copy(Str,1,Pos(#13#10,Str) - 1);
      ShowMessage(Str2);
      Delete(Str,1,Pos(#13#10,Str) + 1)
  end;
  ShowMessage(Str);
end;

Answer 3

var
  sl: tstringlist;
  i: integer;
begin
  sl:= tstringlist.create;
  sl.text:= str;
  for i:= 0 to sl.count do
    showmessage(sl.strings[i]);
end;

Answer 4

var 
  sl: tstringlist;
  i: integer;
  Str : String;
begin
  sl:= tstringlist.create;
  str := 'GRENGgfv' + #13#10 + 'kuiekj5j5' + #13#10 + 'fherhgeb br' + #13#10 + 'nthehge';
  sl.text:= str;
  for i:= 0 to sl.count -1 do
    showmessage(sl.strings[i]);
  sl.Free;