Hi,
ich werde noch Wuschig. Irgend wie komm ich ned drauf wie ich es am einfachsten
Anstelle viele Chars einzeln an ein Memo anhänge.
Meine Lösung ist viel zu langsam.
Delphi-Quellcode:
l := 1;
memo1.Text := memo1.Text + format('%6.6s', [#32]);
for y := 0 to High(a) do
begin
///
memo1.Text := memo1.Text + format('$%0.2x,', [ a[y] ]); // <--<<<
///
inc(l);
if l > 20 then // länge der Formatierung
begin
memo1.Text := memo1.Text + #13#10;
memo1.Text := memo1.Text + format('%6.6s', [#32]);
l := 1;
end;
if y mod 100 = 0 then
begin
application.ProcessMessages;
Caption := format('%d of %d',[High(a), y]);
end;
end;
memo1.EndUpdate;
s := Memo1.Lines[memo1.Lines.Count - 1];
Delete(s, length(s), 1);
Memo1.Lines[memo1.Lines.Count - 1] := s;
memo1.Lines.Add(format(' ); // %d Bytes', [i]));
Die Menge der Zeichen kann bis zu 10 Mio betragen. Ein direktes schreiben ein eine Datei
möchte ich Vermeiden.
