Skocz do zawartości


operacje na strumieniach


3 odpowiedzi w tym temacie

#1 GEOSOFT2016

    Nowy na forum

  • Użytkownicy
  • 2 Postów:

Napisano pią, 22 kwi 2016 - 16:58

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

#2 olesio

    Ekspert

  • Super użytkownicy
  • 363 Postów:
  • Gadu-Gadu:478088

Napisano sob, 23 kwi 2016 - 07:29

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

#3 GEOSOFT2016

    Nowy na forum

  • Użytkownicy
  • 2 Postów:

Napisano pon, 25 kwi 2016 - 06:34

Wyświetl postUżytkownik olesio dnia sob, 23 kwi 2016 - 07:29 napisał

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

delphi

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.


#4 olesio

    Ekspert

  • Super użytkownicy
  • 363 Postów:
  • Gadu-Gadu:478088

Napisano pon, 25 kwi 2016 - 14:55

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