hi ich erzeuge mit

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Datei: TFileStream;
    T: String;
    Count: Integer;
begin
  T := Edit1.Text;
  Count := Length(T);
  try
    T := T;
    Datei := TFileStream.Create('d:\Test.txt',fmcreate);
    Datei.WriteBuffer(T, Count);
  finally
    Datei.Free;
end;
end;

eine TXT mittels FileStream!

Wie kann ich diese datei durch klicken eines anderen Buttons (Button2)in einem anderen Edit(Edit2)anzeigen lassen?

Moin Spider,

ich vermute mal, dass Du es schon versucht hast, und kein Text angezeigt wurde.

Da der Buffer nicht typisiert ist, musst Du bei einem String (oder auch anderen Arrays) angeben ab welcher Stelle geschrieben werden soll.

Datei.WriteBuffer(T[1], Count); Dass muss auch beim Lesen gemacht werden. Wichtig ist, dass der Buffer vorher auf die erforderliche Länge initialisiert werden muss (z.B. mit StringOfChar, Länge FileStream.Size).

Zum lesen dann statt fmCreate dann fmOpenRead.

und beim öffnen dann

markieren

Code:

Datei.ReadBuffer(T[1], Count);

statt

markieren

Code:

Datei.WriteBuffer(T[1], Count);

oder?

Oder kannst du mir mal ein Beispiel code machen? Hab mit sowas noch nie gearbeitet

Moin Spider,

Du hast es doch eigentlich schon:

zusammenfalten · markieren

Delphi-Quellcode:

// schreiben
procedure TForm1.Button1Click(Sender: TObject);
var Datei: TFileStream;
    T: String;
    Count: Integer;
begin
  T := Edit1.Text;
  Count := Length(T);
  try
    Datei := TFileStream.Create('d:\Test.txt',fmcreate);
    Datei.Write(T[1], Count);
  finally
    Datei.Free;
  end;
end;

// Lesen
procedure TForm1.Button2Click(Sender: TObject);
var Datei: TFileStream;
    T: String;
begin
  try
    Datei := TFileStream.Create('d:\Test.txt',fmOpenRead);
    T := StringOfChar(#00,Datei.Size);
    Datei.Read(T[1], Datei.Size);
  finally
    Datei.Free;
  end;
end;

ungetestet, sollte aber stimmen.
BTW: Ich hab' nur noch mal die Methoden xxxBuffer gegen die ohne ausgetauscht.

THX Chris!

Sachmal kann man das auch noch ganz,ganz,ganz,ganz einfach Verschlüsselen?

Moin Spider,

Du weisst doch:
Neue Frage - Neuer Thread

OK aber... in meinem Anderen Thread sie "Sehr einfaceh Verschlüsselung" hat keine geantwortet ich glaub sogar das der Thread gar nicht mehr existiert! Gut dann mach ich nen Neuen auf!