Skocz do zawartości

operacje na strumieniach


GEOSOFT2016

Polecane posty

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

Pozdrawiam: olesio

Link do komentarza
Udostępnij na innych stronach

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.

Link do komentarza
Udostępnij na innych stronach

Zarchiwizowany

Ten temat jest archiwizowany i nie można dodawać nowych odpowiedzi.

×
×
  • Utwórz nowe...