hey,
bis hierher schon mal vielen dank an alle...
im moment hab ich noch ein anderes problem. das ist wahrscheinlich ein ganz einfacher fehler aber ich sitze jetzt schon ne ganze weile dran und bekomme es nicht hin.
ich wollte nun nicht immer das gleiche abspeichern, sondern nun irgendeinen Text aus einem editfeld.
bloß in dem moment wo ich das array dynamisch erzeuge funktioniert es nicht mehr.
also das hier funktioniert noch :
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var
arB : array[0..10] of Byte;
I, Len : Integer;
begin
len := length(Edit1.Text);
for I := 0 to len - 1 do
arB[I] := ord(Edit1.Text[I+1]);
D.Input(@arB,len);
end;
da ist ja schon vorher die größe arrays festgesetzt.
Das hier geht allerdings nicht mehr:
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var
arB : array of Byte;
I,Len : Integer;
begin
len := length(Edit1.Text);
GetMem(arB,len);
for I := 0 to len - 1 do
arB[I] := ord(Edit1.Text[I+1]);
D.Input(@arB,len);
FreeMem(arB,len);
end;
da liefert "output" nicht mehr die richtigen werte, sondern irgendwelche anderen.