operacje na strumieniach

[GEOSOFT2016]

Czy nógł by ktoś mi podesłąć przykładowy kod jak

pobrać z richedit zaczytany dokument do stream i zapisać go w pliku typowanym o przykładowej strukturze

lp:integer

dokument:tstream;

następnie procedurę do odczytania z pliku stram do richedita

Z góry dziękuje

[olesio]

Pokaż konkretny kod jak SAM to robisz i z czym masz konkretnie problem, to ktoś pomoże, bo gotowce to wiesz na ogół są przy płatnym zleceniu podawane. Póki co to mogę podać Tobie przykłady dwóch kodów, które powinny Ciebie naprowadzić na rozwiązanie, które musisz dopasować do swoich potrzeb. Ale dzięki nim powinieneś zrozumieć ideę. Wklejam na zewnętrzny pastebin, bo tutejszy parser rozwala na ogół całkowicie formatowanie i robi inne nieprzewidziane operacje na wklejanym tekstcie ;/

 

http://4programmers.net/Pastebin/5455

http://4programmers.net/Pastebin/5456

[GEOSOFT2016]

Pokaż konkretny kod jak SAM to robisz i z czym masz konkretnie problem, to ktoś pomoże, bo gotowce to wiesz na ogół są przy płatnym zleceniu podawane. Póki co to mogę podać Tobie przykłady dwóch kodów, które powinny Ciebie naprowadzić na rozwiązanie, które musisz dopasować do swoich potrzeb. Ale dzięki nim powinieneś zrozumieć ideę. Wklejam na zewnętrzny pastebin, bo tutejszy parser rozwala na ogół całkowicie formatowanie i robi inne nieprzewidziane operacje na wklejanym tekstcie ;/

 

http://4programmers.net/Pastebin/5455

http://4programmers.net/Pastebin/5456

unit glowny_f;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, ComCtrls;

type
 TForm1 = class(TForm)
   RichEdit1: TRichEdit;
   Button1: TButton;
   Button2: TButton;
   Button3: TButton;
   OpenDialog1: TOpenDialog;
   Edit1: TEdit;
   Edit2: TEdit;
   procedure Button1Click(Sender: TObject);
   procedure Button2Click(Sender: TObject);
   procedure Button3Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

 mojabaza = packed record
 lp:string[10];
 akt:string[255];
 tresc:tstream;
 end;
 ustawy = file of mojabaza;
var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 richedit1.Clear;
 opendialog1.Execute;
 richedit1.Lines.LoadFromFile(opendialog1.FileName);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
 baza:ustawy;
 struktura:mojabaza;
 strumien:tmemoryStream;


begin
 AssignFile(baza,'c:\stream\baza.dat');
 rewrite(baza);

 strumien:=tmemoryStream.create;

 struktura.lp:='1';
 struktura.akt:='Ustawa o gosp';

 richedit1.Lines.SaveToStream(strumien);

 strumien.Position:=0;
 struktura.tresc:=strumien;

 write(baza,struktura);
 strumien.Free;

end;

procedure TForm1.Button3Click(Sender: TObject);
var
 baza:ustawy;
 struktura:mojabaza;
 strumien:TmemoryStream;
begin
 AssignFile(baza,'c:\stream\baza.dat');
 reset(baza);

 strumien:=tmemoryStream.create;
 read(baza,struktura);

 edit1.Text:=struktura.lp;
 edit2.text:=struktura.akt;
 richedit1.Clear;
 strumien.Write(struktura.tresc,SizeOf(struktura.tresc));
 strumien.Position:=0;
 richedit1.Lines.LoadFromStream(strumien);
 strumien.Free;
end;

end.

[olesio]

Sformatuj ten kod porżądnie i wstaw na jakiś zewnętrzny pastebin, bo forumowy rozwali formatowanie. Wtedy pewnie ktoś na to spojrzy i coś Tobie doradzi. W obecnej chwili nie da się na to po prostu patrzeć.