Question

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

（1）

首先，假设备注中填充了Hex信息，如下所示：

enter image description here

如何计算显示的所有文本块，忽略空格？因此，使用图像，这种情况下的结果将是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;

TMemo中的字块

2 个答案: