GEOSOFT2016 Napisano Kwiecień 22, 2016 Zgłoś Share Napisano Kwiecień 22, 2016 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 Link do komentarza Udostępnij na innych stronach More sharing options...
olesio Napisano Kwiecień 23, 2016 Zgłoś Share Napisano Kwiecień 23, 2016 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 More sharing options...
GEOSOFT2016 Napisano Kwiecień 25, 2016 Autor Zgłoś Share Napisano Kwiecień 25, 2016 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 More sharing options...
olesio Napisano Kwiecień 25, 2016 Zgłoś Share Napisano Kwiecień 25, 2016 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ć. Pozdrawiam: olesio Link do komentarza Udostępnij na innych stronach More sharing options...
Polecane posty
Zarchiwizowany
Ten temat jest archiwizowany i nie można dodawać nowych odpowiedzi.