Diverse Probleme mit Strings, SetLength und SizeOf

[Bernhard Geyer]

Zitat:

Zitat von a.def (Beitrag 1369637)

Zitat:

Verwende keine Strings.

Was sollte man denn sonst verwenden wenn keine Strings?

Kommt auf die Anforderung drauf an. z.B. ein festes Array (of Bytes) wäre eine Möglichkeit wenn (wie hier) du eh einen 32-Byte Hashwert vergleichen willst.

Zitat:

Zitat von a.def (Beitrag 1369637)

Ganz am Ende der Geschichte vergleiche ich dann aber trotzdem 2 Strings.

Und wieso? Du kannst genauso Streams/Array oder ähnliches Vergleichen z.B. mit CompareMem

[a.def]

Zitat:

Und wieso?

Weil es am einfachsten ist und ich das andere nicht kenne.

Ich schaffe es ja noch nicht einmal die Funktion von nahpets oben "rückgängig" zu machen. Also statt Zeichen X an Stelle N einfügen, entfernen.
Dann darf man mir nicht mit Speicheroperationen ankommen :P

[bepe]

Grundsätzlich hat Bernhard recht. Wenn du gar nicht mit Texten arbeitest sondern mit (binär) Daten, dann wären TBytes/Array of Byte vorzuziehen/richtiger.

Die Variante mit dem AnsiString ist nur dann OK, wenn das Ergebnis stimmt. Und du damit leben kannst früher oder später vielleicht noch einmal nachbessern zu müssen, weil dir doch etwas auf die Füße gefallen ist.

Das musst du entscheiden: Dich in das Thema einarbeiten oder mit einem Restrisiko leben.

[nahpets]

Meinst Du sowas?
Ebenfalls nur hingedaddelt:

Delphi-Quellcode:

function DeleteZeichen(sZeichenfolge : String; chZeichen : Char; iPosition : Integer) : String;
var
  i : Integer;
begin
  Result := '';
  for i := 1 to Length(sZeichenfolge) do begin
    if (i mod iPosition = 0) 
    and (Copy(sZeichenfolge,i,1) = chZeichen) then 
    else Result := Result + Copy(sZeichenfolge,i,1);
  end;
end;

iPosition muss hierbei um eins größer sein als bei InsertZeichen.

Oder:

Delphi-Quellcode:

function DeleteZeichen(sZeichenfolge : String; chZeichen : Char; iPosition : Integer) : String;
var
  i : Integer;
  iPos : Integer;
begin
  iPos := iPosition + 1;
  Result := '';
  for i := 1 to Length(sZeichenfolge) do begin
    if not (i mod iPos = 0) then begin
      Result := Result + Copy(sZeichenfolge,i,1);
    end;
  end;
end;

iPosition muss mit dem von InsertZeichen übereinstimmen.
chZeichen wird nicht benötigt, man könnte aber bei der Positionsabfrage noch prüfen, ob dort auch dieses Zeichen gefunden wird. Wenn nein, hat man einen Zeichenfolge, die eher ungeeignet für die Verarbeitung ist, da (vermutlich) das gesuchte Zeichen nicht per InsertZeichen eingefügt wurde.

[Bernhard Geyer]

Zitat:

Zitat von a.def (Beitrag 1369644)

Weil es am einfachsten ist und ich das andere nicht kenne.

Da es nicht funktioniert kann du nicht davon sprechen das es einfach ist.

Zitat:

Zitat von a.def (Beitrag 1369644)

Ich schaffe es ja noch nicht einmal die Funktion von nahpets oben "rückgängig" zu machen. Also statt Zeichen X an Stelle N einfügen, entfernen.
Dann darf man mir nicht mit Speicheroperationen ankommen :P

Die Frage ist wieso das du das überhaupt benötigst? Hat das mit dem eigentlichen Problem zu tun? Falls nein mach dafür einen eigenen Thread auf.

Zu deinem Eigentlichen Problem habe ich noch was gefunden:
http://www.delphidabbler.com/articles?article=7

Ich würde mir aber überlegen ob ich wirklich einfach so ein paar bytes an eine Exe hängen kann/will.
Es gibt ein definiertes Format (https://de.wikipedia.org/wiki/Portable_Executable) welches du mit solchen angehängten Daten störst (bin jetzt kein PE-Experte, evtl. darf man das ja auch).
Evtl. genügt es diese Info in eine weiter Datei als Salted Hash abzulegen.

[a.def]

Es funktioniert jetzt wie ich will. Mit strings. Das andere ist mir zu kompliziert.

Zitat:

Die Variante mit dem AnsiString ist nur dann OK, wenn das Ergebnis stimmt.

Das Ergebnis stimmt. Also ist TBytes oder was auch immer hier meiner Meinung nach überflüssig.