ingen database

Skal det der står i edit felterne tilføjes til den eksisterende fil eller skal det erstattes med det der allerede står i filen ?

Snowball

Ved simpel Delphi kodning, vi gider sku da ikke lave din \"slave-kode\" det må du da lave selv

hvis martinlind taler for alle....kan jeg ligeså godt nedlægge spørgsmålet

vi...kan kun betyde alle her

det i felterne skal erstatte det der allerede står i filen

OK. Det er ret nemt og lave så jeg kan da godt lige hurtigt lave det for dig i morgen !

Snowball

stone>> Smid 9 edit felter på en form, og giv denne et onCreate event ... Skriv der efter det følgende kode :

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    procedure FormCreate(Sender: TObject);
  private
    procedure EditChange(Sender: TObject);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.EditChange(Sender: TObject);
var
  f : TextFile;
  Path : String;
  Name : String;
begin
  if not (Sender is TEdit) then
    exit;

  Path := ExtractFilePath(Application.ExeName);
  Name := Path + (Sender as TEdit).Name + \'.hest\';

  AssignFile(f,Name);
  Rewrite(f);
  Write(f,(Sender as TEdit).Text);
  CloseFile(f);
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  f : TextFile;
  Path : String;
  Name : String;
  tmp : TComponent;
  i : Integer;
  Buffer : String;
begin
  for i:= 0 to ComponentCount-1 do
  begin
    tmp := Components[i];
    if not (tmp is TEdit) then
      continue;

    Path := ExtractFilePath(Application.ExeName);
    Name := Path + (tmp as TEdit).Name + \'.hest\';
    if not FileExists(Name) then
      continue;

    AssignFile(f,Name);
    Reset(f);
    read(f,Buffer);
    (Tmp as Tedit).OnChange := nil;
    (Tmp as Tedit).Text := Buffer;
    CloseFile(f);
    (Tmp as Tedit).OnChange := EditChange;

  end;
end;

end.


JEns B

alternativt kunne editeringen af filen foregå i onExit eventen på edit feltet.

martinlind >> hvis alle havde din holdning var der jo ikke meget ved dette forum...glatnakke :-|

tknudsen >> Det er jo heldigt vi er forskellige ( så vi ikke ligner dig alle samen ), dette forum er til at løse problemer, det er ikke en kodefabrik.... InfantilNar :-|

Og det med at gøre det på OnExit er måske ikke lige den bedste da man så skal gå ud af det sidste felt for at der sker noget, det kan nogle gange være lidt forvirrende.

martinlind >> hvad fanden er du så sur over ? stone har stillet et spørgsmål - hvordan løsningsforslag og hjælp gives er da op til hver enkelt.

Du har ret i at ændringen først sker når man forlader feltet... (?)

tknudsen >> Ja det er da ihvertfald ikke fordi jeg bliver kaldt glatnakke, det elsker jeg jo når folk kalder mig.

/Martin

martinlind >> jeg er ked af at vi er kommet ud på et sidespor - glatnakken var en reflektion på dit første svar...

Jeg tror jeg overlever *S*, men jeg mener nu stadig det var et lidt billigt spørgsmål, som derfor krævede det svar jeg skrev først.

/Martin