Loops 无法在备忘录中将单词拆分为单个字母

这是我的代码，将一个单词拆分为备忘录中的单个字母，每个字母都在单独的行中

---

我的代码只返回单词的最后一个字母。我觉得这是非常接近，但我不知道如何进一步进行。任何帮助都将不胜感激。

Delphi不像ie Python那样，在ie Python中，空格是重要的，并且定义了块。在Delphi中，您必须使用

开始

和

结束

来标记块，在这种情况下，for循环：

unit frmDisplaySentence_u;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;

type
  TfrmDispOneChar = class(TForm)
    edtCode: TEdit;
    btnDisplay: TButton;
    lblMsg: TLabel;
    memOutput: TMemo;
    procedure btnDisplayClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmDispOneChar: TfrmDispOneChar;

implementation

{$R *.dfm}

procedure TfrmDispOneChar.btnDisplayClick(Sender: TObject);
var
    K, iLength : integer;
    cOne : char;
    sCode : string;
begin
    sCode := edtCode.Text;
    iLength := Length(sCode);
    for K := 1 to iLength do
        cOne := sCode[K];
        memOutput.Lines.Add(cOne);

end;

---

真不敢相信facepalm会这么简单，不过下次使用调试器可能会帮助您自己解决此类问题。

procedure TfrmDispOneChar.btnDisplayClick(Sender: TObject);
var
    K, iLength : integer;
    cOne : char;
    sCode : string;
begin
    sCode := edtCode.Text;
    iLength := Length(sCode);
    for K := 1 to iLength do begin
        cOne := sCode[K];
        memOutput.Lines.Add(cOne);
    end;
end;