Delphi程序如何拆分连在一起的字符串：

冥界3大法王

比如机器码： E8 18 01 00 00这种我会用

[Delphi] 纯文本查看 复制代码

 strs := TStringList.Create;
 strs.CommaText := HBDYX.Text;

https://www.cnblogs.com/dream-crack/p/15787560.html这种来拆

但要是这种呢：    E818010000 ？
使之输出反向的：00000118E8

shoukyou

一般我用循环

冥界3大法王

shoukyou 发表于 2022-1-11 23:34
一般我用循环

var
  b, i: Integer;
  TempString: string;
label
  zailai;
begin
  i := 2;
  b := 0;
zailai:
  if i < (Length(Edit1.Text) div 2) then
  begin
    b := b + 1;
    i := i * b;
    TempString := RightStr(Edit1.Text, i);
    Edit2.Text := Edit2.Text + TempString;
    goto zailai;
  end;
这样不对，那能不能用正则呢？

vipcrack

StrUtils.ReverseString - 翻转字符串

冥界3大法王

vipcrack 发表于 2022-1-12 08:26
StrUtils.ReverseString - 翻转字符串

这是胡嫩的
我要2一组反向的

vipcrack

冥界3大法王 发表于 2022-1-12 08:56
这是胡嫩的
我要2一组反向的

木看清楚，两个一组，就利用截取字符串方式循环处理吧

kenxy

循环就可以了，delphi不是可以循环吗 downto

shoukyou

冥界3大法王 发表于 2022-1-11 23:57
var
  b, i: Integer;
  TempString: string;

这样也是可以啊
正则的话没用过 简单处理用循环也不影响我觉得

异袭狂封

是高位字节和低位字节 倒序吗

[Delphi] 纯文本查看 复制代码

function SwapString(Msg: string): string;
var
  TempPchar: Pchar;
  i: integer;
  Str: string;
begin
  //将字符串 Char数组化
  TempPchar := Pchar(Msg);
  i := 0;
  Str := '';
  while i < length(TempPchar) do
  begin
    Str := TempPchar[i] + TempPchar[i + 1] + Str;
    i := i + 2;
  end;
  result := Str;
end;

amonsonic

TStringList.Delimiter有Bug，会强制把空格当成分隔符

const
  C:Char =',';  // 设置成你自定义的分隔符
var
  List:TStringList;
begin
   ...
  List.Clear;
  Classes.ExtractStrings([C], [], pChar(Text), List);