Skocz do zawartości
Zaloguj się, aby obserwować  
GEOSOFT2016

operacje na strumieniach

Polecane posty

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

Udostępnij ten post


Link to postu
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

Udostępnij ten post


Link to postu
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.

Udostępnij ten post


Link to postu
Udostępnij na innych stronach

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ć.

Udostępnij ten post


Link to postu
Udostępnij na innych stronach

Bądź aktywny! Zaloguj się lub utwórz konto

Tylko zarejestrowani użytkownicy mogą komentować zawartość tej strony

Utwórz konto

Zarejestruj nowe konto, to proste!

Zarejestruj nowe konto

Zaloguj się

Posiadasz własne konto? Użyj go!

Zaloguj się
Zaloguj się, aby obserwować  

×