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

Question

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;

这是我的代码，用于在备忘录中将单词拆分为单独的字母，每个字母在不同的行中。

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

Answer 1

Delphi 与 Python 不同，其中空格很重要并且定义了块。在 Delphi 中，您必须使用 begin 和 end 来标记块，在这种情况下，您的 for 循环：

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;

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

Cannot split word into individual letters in a memo

delphi

loops

delphi-2010