[Delphi] Zapisywanie...

Mam pytanie dotyczące jak ma wyglądać procedurka zapisująca zawartość np. Edit1 i Edit2 do pliku a następnie wczytująca zawartość Edit1 i Edit2 do tych editów na formie.

Pozdrowienia dla wszystkich programistów

Możesz użyć recordu do zapisania w jednym pliku tych editów. [browar]

Sposobow jest kilka :

• zapisac do pliku INI
• zapisac do rejestru
• zapisac do zwyklego pliku tekstowego

do pliku INI opisano wFAQ
do rejestru tez w FAQ

Ostatni sposob jest niewygodny ale...

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
private
{ Private declarations }
public
procedure ZapiszDoPliku();
procedure OdczytajZPliku();
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.OdczytajZPliku;
var
strLista : TStringList;
begin
strLista := TStringList.Create(NIL);
try
strLista.LoadFromFile('nazwa_pliku');
Edit1.Text := strLista[0];
Edit1.Text := strLista[1];
finally
strLista.Free;
end;
end;

procedure TForm1.ZapiszDoPliku;
var
strLista : TStringList;
begin
strLista := TStringList.Create(NIL);
try
strLista.Add(Edit1.Text);
strLista.Add(Edit2.Text);
strLista.SaveToFile('nazwa_pliku');
finally
strLista.Free;
end;

end;

end.

To znaczy jakby to miało wyglądać bo ja niestety nie wiem?

Sposobow jest kilka :

• zapisac do pliku INI
• zapisac do rejestru
• zapisac do zwyklego pliku tekstowego
  Ostatni sposob jest niewygodny ale...
  (...)

Ale kombinacje :)
Jeżeli tylko 2 edity to można zrobić tak:

Zapis:
var
Plik: TextFile;
begin
AssignFile(Plik, NazwaPliku);
Rewrite(Plik);
WriteLn(Plik, Edit1.Text);
WriteLn(Plik, Edit2.Text);
CloseFile(Plik);
end;

Odczyt:
var
Plik: TextFile;
begin
AssignFile(Plik, NazwaPliku);
Reset(Plik);
ReadLn(Plik, Edit1.Text);
ReadLn(Plik, Edit2.Text);
CloseFile(Plik);
end;

Ale jeżeli długość tekstu w edicie przekroczy jedną liniję w pliku to będzie klapa. :-| Wczyta do pierwszego edita tylko pierwszą linijkę z pliku a do drugiego drugą należącą do pierwszego edita !!!!

Zawsze myślałem że to takie proste 8-0

Ale jeżeli długość tekstu w edicie przekroczy jedną liniję w pliku to będzie klapa. :-| Wczyta do pierwszego edita tylko pierwszą linijkę z pliku a do drugiego drugą należącą do pierwszego edita !!!!

To ja poproszę o przykład wpisania do Edita więcej niż jednej linijki (nie licząc sztucznego dodatnia znaku LF).

polecam plik *.ini (do poczytania w serwisie)
a skoro chcesz wiecej niz jedna linijke to moze TMemo i pochodne??