Caption in Stream speichern

[citybreaker]

Hallo,
ich wollt mir mal das ganze Streamzeugs angucken und hab da
mal ne Frage. Wie kann man zum Beispiel Label1.Caption in einen
Stream speichern?!

[mirage228]

Hi,

da habe ich was für dich:

Delphi-Quellcode:

function ReadStringFromStream(F: TStream): String;
var
   aStrLen : Integer;
begin
  F.ReadBuffer(aStrLen,SizeOf(Integer));
  SetLength(Result,aStrLen);
  if aStrLen > 0 then
  F.ReadBuffer(Pointer(Result)^,aStrLen);
end;

procedure WriteStringToStream(F: TStream; aStr: String);
var
   aStrLen : Integer;
begin
  aStrLen:=Length(aStr);
  F.WriteBuffer(aStrLen,SizeOf(Integer));
  if aStrLen > 0 then  
  F.WriteBuffer(Pointer(aStr)^,aStrLen); 
end;

Ich hoffe, dass es dir hilft ^^

mfG
mirage228

[citybreaker]

Öh und wie kann ich die procedure nun anwenden?

Delphi-Quellcode:

procedure TForm1.Button1.OnClick...
begin
  WriteStringToStream(, Label1.Caption); // << Was kommt vor das Komma?!
end;

[mirage228]

Hi,

ein kleines Beispiel:

Delphi-Quellcode:

var
  Stream: TFileStream;
begin
  Stream := TFileStream.Create('datei.erw', fmCreate); // bzw. fmOpenWrite, falls die Datei existiert
  try 
    WriteStringToStream(Stream, Edit1.Text);
  finally
    Stream.Free;
  end;
end;

Das ganze funktioniert natürlich mit allen anderen Stream (TMemoryStream, TStringStream, ...)

mfG
mirage228

[citybreaker]

Ah cool, danke.



Wo ist der untserschied ziwschen TFileStream und TStringStream ?!

[mirage228]

Hi,

ein kleiner Blick in die Hilfe reicht:

Code:

TStringStream ist ein Streamobjekt, mit dem Sie zu Ein-/Ausgabezwecken auf Informationen zugreifen können, die als langer String gespeichert sind.

Code:

TFileStream wird von Anwendungen genutzt, um Daten aus einer Datei auf der Festplatte zu lesen oder in eine solche Datei zu schreiben.

mfG
mirage228

[citybreaker]

Äh ja aber wo kann ich jetzt beim "lesen" angeben
wo der Text erscheinen soll? Raff das noch nicht ganz
sry. .

[mirage228]

Zitat von citybreaker:

Äh ja aber wo kann ich jetzt beim "lesen" angeben
wo der Text erscheinen soll? Raff das noch nicht ganz
sry. .

Wie meinste das?

Wenn du die Daten liest, musst du es in der selben Reihenfolge machen, wie du sie gespeichert hast.

mfG
mirage228