Moinsen,
Ich möchte einen String in einem Stream speichern. Dazu hab ich mir jetzt etliche Tutorials angesehen, doch irgendetwas mache ich falsch.
Folgenden Code den ich geschrieben habe, möchte ich verwenden um einen beliebigen String (S) in einem Stream (Stream) zu speichern.
Delphi-Quellcode:
procedure TForm1.Button3Click(Sender: TObject);
var
Stream: TStream;
S: String;
N: LongInt;
begin
S:= Edit1.Text;
N:= Length(S);
if N > 0 then
begin
Stream:= TStream.Create;
Stream.Write(N, SizeOf(N));
Stream.Write(S[1], N);
end;
//... // Stream über Socket versenden.
Stream.Free;
end;
Spätestens bei "Stream.Write(N, SizeOf(N));" bringt er mir den Fehler:
Zitat:
Erste Gelegenheit für
Exception bei $75B83843.
Exception-Klasse EAbstractError mit Meldung 'Abstract Error'. Prozess Project1.exe (2368)
Gruß