Delphi

25. 1. 2010 12:17:53

Ahoj,

našel by se tu někdo schopný, kdo by mohl poradit s Borland Delphi? Samozřejmě nechci to zadarmo ;) Návrh je takový. Jedeno okno, v něm 2 x edit a jedno memo. Teď dvě tlačítka (je jedno jestli button nebo v menu). Jedno tlačítko bude sloužit pro ukládání a druhé pro načtení. Důležité je, aby se to dělo přes savedialog a opendialog. Zatím brnkačka. Ale teď to příjde. Já potřebuju uložit obsah editů i mema do jednoho souboru a poté pomocí open dialogu zase načtení...samozřejmě aby byl text na svém místě (v editu a jednotlivých řádcích mema). S tímto se nevím rady. Sice uložím i načtu v pořádku, ale při naštení se načte jen první řádek do mema a ostatní už ne. A tohle potřebuju udělat aby běželo dobře :)

Jo a ještě připomínka. V memu bude víc znaků, takže ukládáni do ini souboru nepřipadá v úvahu. Snad je XML soubor.

Kdyžtak prosím PM.

KEERT

25. 1. 2010 12:17:53

https://webtrh.cz/diskuse/delphi#reply445037

Tommas

(4 hodnocení)

25. 1. 2010 12:51:34

Něco takového?

http://www.zive.cz/clanky/umime-to-s-delphi-155-dil--streamy-prakticky/sc-3-a-125494/default.aspx

Je tam i popis a zdroják... Sice je to přes stream ale mohlo by to pomoct.

25. 1. 2010 12:51:34

https://webtrh.cz/diskuse/delphi#reply445036

Keert

(20 hodnocení)

25. 1. 2010 14:17:01

Ano něco takového. ;) Ale ten zakopanej pes je v tom, že je tam kromě mema ještě edit. Kdyby tam bylo samotné memo, tak to uložení i načtení nějak zvládnu. Ale uložit obsah editu i mema do jednoho souboru a poté načtení zase zpátky do těchto polí je problém, se kterým si nevím rady. Mám to sice nějak už hotové, ale vždy se načte jen první řádek mema a ne všechny řádky. Možná by mi pomohl nějak cyklus, který by zjisšťoval obsazené řádky v memu a když by narazil na prázdný, tak by přestal ukládat. To by šlo potom ukládat jednotlivé řádky mema zvlášť. Ale nemůžu tam zadat např. řádky od 0 po 100, protože se může stát, že budou vyplněné jen 2 :)

25. 1. 2010 14:17:01

https://webtrh.cz/diskuse/delphi#reply445035

Jan Brabec

(2 hodnocení)

25. 1. 2010 14:49:24

Já bych tu strukturu souboru udělal nějak takhle

Pak bych ten soubor proste nacet. Dokud se nenarazi na oddelovac(v tomhle prikladu ###edit###, ale muze bejt jakejkoliv) tak pridavat do mema, potom to hodit do tech editu.

25. 1. 2010 14:49:24

https://webtrh.cz/diskuse/delphi#reply445034

Michal Urva

(16 hodnocení)

25. 1. 2010 15:12:08

Som stary Delphiak :) Najednoduchsie to bude urobit tak ze to budes ukladat do suboru vo formate "edit1.text;edit2.text;memo1.text".

Ukladat budes jednoducho s pouzitim textfile a takisto aj nacitavat. Po nacitani si prezenies nacitany riadok (s oddelovacom ; cez funkciu)

=========== OTVORIT SUBOR ======================var   F: TextFile;  nacitanedata: string;begin  if OpenDialog1.Execute then      begin    AssignFile(F, OpenDialog1.FileName);     Reset(F);    Readln(F, nacitanedata);                     CloseFile(F);  end;end;======================================================================    ULOZIT SUBOR     ===================var   F : TextFile;beginif SaveDialog1.Execute then      begin   AssignFile(F, SaveDialog1.FileName);   ReWrite(F);    WriteLn(F, edit1.text+';'+edit2.text+';'+memo1.lines.text);   CloseFile(F); end;end;=====================================================procedure rozdel(const sl : TStrings; const value : string; const delimiter : string) ;var   dx : integer;   ns : string;   txt : string;   delta : integer;begin   delta := Length(delimiter) ;   txt := value + delimiter;   sl.BeginUpdate;   sl.Clear;   try     while Length(txt) > 0 do     begin       dx := Pos(delimiter, txt) ;       ns := Copy(txt,0,dx-1) ;       sl.Add(ns) ;       txt := Copy(txt,dx+delta,MaxInt) ;     end;   finally     sl.EndUpdate;   end;end;rozdelene:=tstringlist.create;rozdel(rozdelene,nacitanedata,';');edit1.text:=rozdelene.Strings;edit2.text:=rozdelene.Strings;memo1.lines.text:=rozdelene.Strings;

pouzit to uz hadam budes vediet :)

25. 1. 2010 15:12:08

https://webtrh.cz/diskuse/delphi#reply445033

Jan Brabec

(2 hodnocení)

25. 1. 2010 16:49:24

Napsal MichalU;442780
Som stary Delphiak :) Najednoduchsie to bude urobit tak ze to budes ukladat do suboru vo formate "edit1.text;edit2.text;memo1.text".

Ukladat budes jednoducho s pouzitim textfile a takisto aj nacitavat. Po nacitani si prezenies nacitany riadok (s oddelovacom ; cez funkciu)

Skoro stejné řešení jako to moje. Akorát jsem se chtěl vyhnout ; oddělovači, protože ti ho někdo může zadat do toho Mema, kdyby psal normálně text ...

25. 1. 2010 16:49:24

https://webtrh.cz/diskuse/delphi#reply445032

Keert

(20 hodnocení)

26. 1. 2010 11:37:56

Takže problém vyřešen. Díky všem za pomoc. :thumbup:

26. 1. 2010 11:37:56

https://webtrh.cz/diskuse/delphi#reply445031

Pro odpověď se přihlašte.

Přihlásit