TMemo 中的字块

Question

我正在尝试用 TMemo 制作一个基本的 Hex 查看器，我知道这可能并不理想，但只有我个人使用它，所以这并不重要。

(1)

首先，假设一个备忘录是这样填充十六进制信息的：

我怎样才能得到所有显示的文本块的计数，忽略空白？因此，在这种情况下，使用该图像的结果将是 28。

这是我尝试过的，我知道这是完全错误的，因为我正在访问备忘录行，但我不知道如何访问每个字符。

我似乎无法解决这个简单的问题:(

function CountWordBlocks(Memo: TMemo): Integer;
var
  i: Integer;
  vCount: Integer;
begin
  for i := 0 to Memo.Lines.Count - 1 do
  begin
    if Length(Memo.Lines.Strings[i]) = 2 then
    begin
      Inc(vCount);
    end;
  end;

  Result := vCount;
end;

这是我用来在备忘录中显示十六进制值的代码：

procedure ReadFileAsHex(const AFileName: string; ADestination: TStrings);
var
  fs: TFileStream;
  buff: Byte;
  linecount: Byte;
  line: string;
begin
  linecount := 0;
  line := '';
  fs := TFileStream.Create(AFileName, fmOpenRead);

  try
    ADestination.BeginUpdate;
    try
      while fs.Position < fs.Size do
      begin
        fs.Read(buff, 1);
        line := line + IntToHex(buff, 2) + ' ';
        Inc(linecount);
        if linecount = 16 then
        begin
          ADestination.Add(line);
          line := '';
          linecount := 0;
        end;
      end;
      if Length(line) <> 0 then
        ADestination.Add(line);
    finally
      ADestination.EndUpdate;
    end;
  finally
    fs.Free;
  end;
end;

(2)

如果我点击备忘录并且光标下有一个文本块，我怎么知道所选块在所有其他块中的哪个数字？

因此使用相同的第一张图片，插入符号位于 68 旁边的顶行，因此结果将是 3，因为它是 28 个文本块中的第三个。

这应该很容易，但我想不清楚，我还没有正确的编程头脑，所以在基本逻辑和解决问题方面真的很挣扎！

(3)

最后我想通过传递一个块编号值在运行时选择一个块。我试过了，但没有成功：

procedure FindBlock(Memo: TMemo; BlockNumber: Integer);
var
  i: Integer;
  txt: string;
  ThisWhite, PrevWhite: boolean;
  vRead: Integer;
begin
  txt := Memo.Text;
  vRead:= 0;
  PrevWhite := True;
  for i := 1 to Length(txt) do
  begin
    ThisWhite := Character.IsWhiteSpace(txt[i]);
    if PrevWhite and not ThisWhite then
    begin
      Inc(vRead);
      PrevWhite := False;
    end;
    PrevWhite := ThisWhite;

    if vRead = BlockNumber then
    begin
      Memo.SelStart := vRead;
      Memo.SetFocus;
      Exit;
    end;
  end;
end;

Answer 1

(1)

这行得通：

function TForm1.CountBlocks: integer;
var
  i: Integer;
  txt: string;
  ThisWhite, PrevWhite: boolean;
begin
  txt := Memo1.Text;
  result:= 0;
  PrevWhite := true;
  for i := 1 to Length(txt) do
  begin
    ThisWhite := Character.IsWhiteSpace(txt[i]);
    if PrevWhite and not ThisWhite then
    begin
      inc(result);
      PrevWhite := false;
    end;
    PrevWhite := ThisWhite;
  end;
end;

但是，如果有关备忘录内容的更详细信息可用，则可以对其进行优化。例如，如果您知道每行由四个块组成，那么块的数量就是4*Memo1.Lines.Count。我上面的代码甚至可以接受不同宽度的块。

(2)

简单替换

for i := 1 to Length(txt) do

通过

for i := 1 to Memo1.SelStart + 1 do

Answer 2

由于您可以控制行的格式，并且行具有固定格式，因此很容易计算正在显示的字节数，而无需每次循环遍历各个行。每行每字节显示 3 个字符，除最后一行以外的每一行显示 16 个字节，因此每完整的 16 字节行有 48 个字符。利用这些事实对您有利，根据存在的完整 16 字节行数计算字节数，然后您可以从最后一行添加剩余字节数：

function CountWordBlocks(Memo: TMemo): Integer; 
var 
  Count: Integer; 
begin 
  Count := Memo.Lines.Count;
  if Count > 0 then
    Result := (16 * (Count-1)) + (Length(Memo.Lines[Count-1]) div 3);
  else
    Result := 0;
end;

您可以执行类似的操作，将备忘录中的字符偏移量转换为工作块编号：

function GetCurrentWordBlock(Memo: TMemo): Integer;
var
  SelStart, LineStart, LineNum: Integer
begin
  Result := 0;
  SelStart := Memo.SelStart;
  if SelStart < 0 then Exit;
  LineStart := Memo.Perform(EM_LINEINDEX, SelStart, 0);
  if LineStart < 0 then Exit;
  LineNum := Memo.Perform(EM_LINEFROMCHAR, LineStart, 0);
  Result := (16 * LineNum) + ((SelStart - LineStart) div 3) + 1;
end;

要选择给定的块号，您可以这样做：

procedure FindBlock(Memo: TMemo; BlockNumber: Integer); 
var
  LineNum, LineStart: Integer;
begin 
  if BlockNumber < 1 then Exit;
  LineNum = (BlockNumber - 1) div 16;
  LineStart = Memo.Perform(EM_LINEINDEX, LineNum, 0);
  if LineStart < 0 then Exit;
  Memo.SelStart = LineStart + (((BlockNumber - 1) - (16 * LineNum)) * 3);
  Memo.SelLength := 2;
  Memo.SetFocus; 
end;