Delphi programozói környezetben tudnátok segíteni?

Nyitsz egy Delphit. Létrehozol egy új Projektet. A formra feldobsz 3 Editet, meg egy Buttont.

A button onclick eseményében meg létrehozod ami kell neked nevezetesen, hogy kiírja egy fájlba a cuccot. Legkönnyebben talán úgy tudod megcsinálni, ha az editekben levő szöveget egy stringlistbe teszed, majd a stringlist savetofile metódusával kimented a tartalmát. Nem nehéz megcsinálni.

Pl lehet ilyen a buttonclick:

procedure TForm1.Button1Click();

var

strl: TStringList;

begin

strl:=TStringList.Create;

Strl.Add(Edit1.Text);

strl.Add(Edit2.Text);

Strl.Add(Edit3.Text);

Strl.SaveToFile('c:\Client.txt');

strl.clear;

Strl.Free;

end;

Szia.

[link]

Üdv.

Szia.

A legegyszerübb módszer erre a ShwellExecute :

Uses végére ird be :

Uses Windows, Messages,...., ShellApi;

Illetve az Gomb Onclick eseményét ird át a következőre :

procedure TForm1.Button1Click(Sender: TObject);

Var TextFile1 : Textfile ;

Error : integer ;

begin

Assignfile (TextFile1,Form1.Label5.Caption);

{$I-}

Rewrite (TextFile1);

{$I+}

Error:=Ioresult();

If Error=0 then begin

writeln (TextFile1,Form1.Edit1.Text);

writeln (TextFile1,Form1.Edit2.Text);

writeln (TextFile1,Form1.Edit3.Text);

CloseFile (TextFile1);

ShellExecute (Application.Handle,'open',pchar ('C:\Client.txt'),pchar (''),nil,SW_SHOW);

end

else begin

Showmessage ('Hibatörtént '+Form1.Label5.Caption+' File megnyitása közben !');

end ;

end;

Ez az új elem :

ShellExecute (Application.Handle,'open',pchar ('C:\Client.txt'),pchar (''),nil,SW_SHOW);

Ha ez nem megfelelő itt nézelődj :

[link]

Sok sikert.

Üdv.

Szia.

Dos alapok.

(Nem a Te hibád, hanem a windozé,

Az ".", illetve a ".." pontos "mappákat" nem nagyon ismerik.

"." : Saját mappa

".." : Egy szintel feljebb lévő mappa ).

Próbáld igy :

ShellExecute (Application.Handle,'open',pchar ('.\valami.txt'),pchar (''),nil,SW_SHOW);

Sk sikert.

Üdv.