Generace souboru – Delphi – Fórum – Programujte.com

Rozšířené hledání ›

Nejnovější témata ve fóru

16:26, Assembler šachový program

22:06, Startupy Megastroj.cz – Vše na jednom místě: půjčovna, bazar a inze…

21:17, Inzerce FPGA vývojová deska XILINX VIRTEX 5 ML507

20:59, OS - GNU / Linux Ubuntu a OpenSuse

21:47, Offtopic Digitalizace v Česku

10:10, Cinema 4D Export USDC do DaVinci Resolve

Stavba Laser Arény
Laser Game Brno

Generace souboru

Radko

~ Anonymní uživatel
~ 1 příspěvek

11. 8. 2007 #1

Ahoj všem, jak se udělá, že program vygeneruje soubor, který chci a jeho obsah můžu zadat v programu?

Nahlásit jako SPAM

IP: ...–

insider 0

Věrný člen

15. 8. 2007 #2

delphi uz sem nejaky cas nevidel, ale jestli sem spravne pochopil(mozna ze ne), tak mas dejme tomu memo, do ktereho zapisujes co zrovna potrebujes, nebo nejaky textovy prvek jmenem hlavniText a tlacitko uloz/nacti, nebo to muzes hodit na udalosti formulare(close,activate) a do onclick tlacitka, nebo udalost formulare se napise:

(Form1.)hlavniText.Lines.SaveToFile("soubor, kam to ulozit");

nejsem si az tak jisty tim lines, ale snad sem to trefil
pokud chces jeste vyber, kam ten soubor ulozit,tak si na form pridej OpenDialog a SaveDialog tusim a ten kod uprav na

if(OpenDialog1.Execute())

(Form1.)hlavniText.Lines.SaveToFile(OpenDialog1.FileName);

uff, mozna to neni uplne dobre, ale delphi sem par let nevidel a v pameti uz mam jine veci :)

Nahlásit jako SPAM

IP: ...–

I don't want to see you go,[br] The sky is over[br] Even though we can't afford[br] The sky is over,[br] The sky is over us.[br][br] CIVILIZATION IS OVER

BlackHole

~ Anonymní uživatel
~ 7 příspěvků

17. 8. 2007 #3

Ánébó

  



var soubor: file of byte; // nebo TextFile pro textový soubor

    nazev: string;



begin

...



assignfile(soubor,nazev);

try

   Rewrite(soubor);

except

   writeln('Nemohu otevrit soubor pro zapis!');

   exit;

end;



...



writeln(soubor,'ja jsem řetězec');



...



CloseFile(soubor);

Takhle to aspoň učili nás :)

Nahlásit jako SPAM

IP: ...–

insider 0

Věrný člen

19. 8. 2007 #4

jo neco podobneho nas v pascalu taky ucili, ale kdo si to ma pamatovat :D
btw: po letmem precteni je to pro consolovou aplikaci(prikazovy radek), nemam jak odzkouset, ale mozna ze to bude hazet chybu u prvniho writeln ...

Nahlásit jako SPAM

IP: ...–

I don't want to see you go,[br] The sky is over[br] Even though we can't afford[br] The sky is over,[br] The sky is over us.[br][br] CIVILIZATION IS OVER

← Zpět na seznam vláken ← Zpět do Fóra