Embarcadero Delphi

Discutii despre tot ce nu se incadreaza in celelalte categorii.

Moderators: Moderatori ajutatori, Moderatori

Post Reply
User avatar
rio
Utilizator restrictionat
Utilizator restrictionat
Posts: 0
Joined: 03 May 2013, 15:00
Detinator Steam: Nu
CS Status: Citesc forumul eXtreamCS.com...!
Reputatie: Utilizator restrictionat: kamaz
Has thanked: 7 times
Contact:

06 Feb 2014, 11:13

Buna

Vreau sa creez o micaa aplicatie in Embarcadero Delphi 2010.
Aplicatia consta in:
Introduci un text intr-un TEdit pus pe Form.
Introduci un text intr-un al 2-lea TEdit pus pe Form.
Adaug un buton si:
Cand apas butonul , Ceea ce a fost introdus in Tedit1 si Tedi2, sa fie scrie intr-un fisier, numit web.out.

Totul merge bine, compilarea si rularea.
Cand verific fisierul Web.out, imi apare scris doar Edit2 fara Edit2.

Asa se intampla si daca adaug 3. Mereu mi=l scrie pe al 3-lea.

Va rog daca stie careva, help me :) !
###############################################################
Image
###############################################################
SERVICIILE DE WEBDESIGN OFERITE AU CA SCOP CREAREA IDENTTITATII AFACERII
DUMNEAVOASTRA PRIN REALIZAREA PROIECTELOR IN CONFORMITATE CU DORINTELE
EXPRIMATE.FOLOSIND ONCEPTE SI IDEI NOI ,DUMNEAVOASTRA SI CLIENTII DUMNEAVOASTRA
VA VETI PUTEA BUCURA DE UN WEBSITE MODERN. PRIN SITE-UL DE PREZETARE SI
LOGO-UL PERSONAL VA VETI PUTEA FORMA O IMAGINE CLARA SI STABILA PE PIATA
PE CARE ACTIVATI.

##############################################################
Contact prin Y!M-urile seby_sebyy89 / adelin_smecheru14
Contact prin e-Mail [email protected]
Website: http://www.emaden.ro
##############################################################
RoyalServer 2
User avatar
eTTricK
Membru, skill 0
Membru, skill 0
Posts: 0
Joined: 03 Feb 2014, 17:58
Detinator Steam: Da
CS Status: Delphi / .NET / C++
Detinator server CS: Da
SteamID: STEAM_0:0:25357875
Reputatie: Membru Club eXtreamCS (1 luna)
Location: Delphi / .NET / C++
Has thanked: 12 times
Been thanked: 10 times

06 Feb 2014, 11:18

Code: Select all

var
 myFile : TextFile;
   text   : string; 


   AssignFile(myFile, 'web.out');
   ReWrite(myFile);
 
  
   WriteLn(myFile, Edit1);
   WriteLn(myFile, Edit2);
 

   CloseFile(myFile);
 
Post Reply

Return to “Discutii generale”

  • Information