Forum: Object-Pascal / Delphi-Language
by Bummi,
28. Dez 2012
Ord('A') >> 65, liefert die die Position des Zeichens in der Zeichtabelle zurück, die Umkehrfunktion ist Char(65) >> 'A'
lies mal hier nach: http://www.delphi-treff.de/object-pascal/datentypen/
Forum: Object-Pascal / Delphi-Language
by Bummi,
28. Dez 2012
Anhand von Beispielen?
procedure TForm1.Button2Click(Sender: TObject);
Var
i:Integer;
begin
// Memo ist das Control in dem der Text dargestellt wird
// Lines "sind die einzelnen Zeilen"
for I := 0 to Memo1.Lines.Count - 1 do
Forum: Object-Pascal / Delphi-Language
by Bummi,
28. Dez 2012
Nachdem bei "echter Steganographie" eine sichtbare Änderung der Datei möglichst unterbleiben soll und Du auf Bitebene arbeiten müsstest, vermutet ich dass Du eher das was Du in http://www.delphipraxis.net/172362-pixel-aus-datei-wieder-geben.html#post1196991 angefangen hast mit einem Memo fortführen möchtest. Der einzige Unterschied ist eigentlich dass Du nicht jedes mal ein Byte aus einer Datei...
Forum: Object-Pascal / Delphi-Language
by Bummi,
28. Dez 2012
da ich nicht weiß was Du vorhast, vielleicht ist hierin das enthalten was Du suchst ...
type
//TByteArray=Array of Byte; // nur für AnsiStrings
TByteArray=Array of Word;
Var
i:Integer;
ba:TByteArray;
begin