Gem knap :P

Add i Private sektionen : PathName : String;
Og her er så et eksempel på en Gemsom og en Gem funktion:

Gemsom funktion:

procedure TForm1.GemsomClick(Sender: TObject);
begin
  SaveFileDialog.FileName := PathName;
  if SaveFileDialog.Execute then
  begin
    PathName := SaveFileDialog.FileName;
    Caption := ExtractFileName(PathName);
    GemClick(Sender);
  end;
end;

Gem funktion:

procedure TForm1.GemClick(Sender: TObject);
begin
  if PathName = DefaultFileName then
    GemsomClick(Sender)
  else
  begin
    Richedit.Lines.SaveToFile(PathName);
    Richedit.Modified := False;
  end;
end;

Håber at du kan bruge det!

MVH.
Armen L.A.

jeg ved hvordan du voldboller koden, men jeg kan godt få den til at virke;

Gem funktion

procedure TForm1.Gem1Click(Sender: TObject);
begin
  if filnavn = '' then
  begin
    savedialog1.execute;
    filnavn := savedialog1.filename;
  end;
  if filnavn = '' then else  Memo1.Lines.Savetofile(filnavn)
end;

Gemsom funktion

procedure TForm1.Gemsom1Click(Sender: TObject);
begin
  SaveDialog1.Execute;
  if savedialog1.FileName = '' then else
  begin
    filnavn := Savedialog1.FileName;
    Memo1.Lines.SaveToFile(filnavn);
  end;
end;

og tilslut en lille ændring i din åbne funktion;

procedure TForm1.bn1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
  begin
    Memo1.Clear;
    Memo1.Lines.LoadFromFile(Opendialog1.FileName);
    filnavn := opendialog1.FileName;
  end;
end;

eventuelt kan der også laves en ændring i åbne funktionen der chekker om dokumentet er blevet gemt men den skulle du næsten selv have og lege med.

det kan f.eks gøres sådan;

//under var
var
tmp : tstrings;

//åbn proceduren
tmp := tstringlist.create;
tmp.loadfrofile(filnavn);
if tmp = memo1.lines then
begin
  // åbn bare et nyt dokument, de seneste ændringer er gemt
end
else
begin
//spørg bruger om han/hun vil gemme dokumentet
//gem eller lad vær
//åbne nyt dok
end;

det er bare skelet du fylder hullerne ud

nu burde du kunne få det til at virke
det kan jeg i hvertfald

Mvh
Troels

[Redigeret d. 26/06-03 08:14:15 af Troels]

Det jeg søger nu er bare koden til en gem knap, altså ikke gem som men bare gem det åbne dokument.. Og den skal helst kun vise knappen hvis der er et program åbent


Lad os sige knapper hedder GemButton. Under indlæsningsproceduren til Åbn knappen (jeg ved ikke hvordan dit program virker, men på en eller anden måde skal programmet jo have indlæst en fil, ikk'?) skriver du:

GemButton.Enabled:=True;

det skulle gøre det!

Hvad angår at gemme filen så skal du sandsynligvis have lavet en record. Det skrives lige under implementation:

Eks.:

type
TMedlem = Record
Antal : Integer;
Navn : String[40];
Adresse : String[30];
Telefon : Integer;
Post : Integer;
By : String[30];
end;
(Bemærk, at Strings skal være afmærket)

Under den globale var skriver du så:

Var
MinFil : file of TMedlem
GemFil : TMedlem


Når du så skal gemme skriver du så bare:

GemFil.Antal:=5;
GemFil.By:='Aalborg'; osv. osv.

Når skidtet en gang skal gemmes skriv da:

Write(****, MinFil);

Hvor *** står for den variable, som den indlæste fil er Assigned to. Hvis du mener jeg vrøvler til sidst her, så skriv endelig. Jacob




-----------------------------------
Out from here

Yeah Baby, Yeah!

For at lave en gem funktion, skal du tjekke om det dokument du har aabn, om den er gemt paa comp. eller ej. Hvis den er, saa skal du bare gemme oven i.. ellers skal du bare koerer gem som funktionen.

Kommer nok med et eksempel snart..

MVH.
Armen L.A

For at lave en gem funktion, skal du tjekke om det dokument du har aabn, om den er gemt paa comp. eller ej. Hvis den er, saa skal du bare gemme oven i.. ellers skal du bare koerer gem som funktionen.

Kommer nok med et eksempel snart..

MVH.
Armen L.A

Ok glæder jeg mig til
-----------------------------------
Out from here

jeg tror godt jeg ved hvad program den kode skal bruges i;

det er ret simpelt og gemme, i dit tilfælde er det bare

memo1.savetofile(filnavn);

når du så åbner en fil sætter du bare filnavn til den fil du har åbnet.

MVH
troels

nej det er en richedit..

men den hedder memo1 som du selv lavede
Men det skal være hvis at det ikke har gemt skal den lave en gem som ligesom ham der den anden skrev...

nej det er en richedit..

men den hedder memo1 som du selv lavede
Men det skal være hvis at det ikke har gemt skal den lave en gem som ligesom ham der den anden skrev...

ok

if filnavn = '' then
begin
  savedialog1.execute;
  filnavn := savedialog1.filename;
end;
if filnavn = '' then else  Memo1.Savetofile(filnavn)

og husk at definere
filnavn : string;
under var

det skulle kunne gøre det


[Redigeret d. 25/06-03 22:44:57 af Troels]

nej det er en richedit..

men den hedder memo1 som du selv lavede
Men det skal være hvis at det ikke har gemt skal den lave en gem som ligesom ham der den anden skrev...

ok

Kode 

if filnavn = '' then
begin
  savedialog1.execute;
  filnavn := savedialog1.filename;
end;
if filnavn = '' then else  Memo1.Savetofile(filnavn)

og husk at definere
filnavn : string;
under var

det skulle kunne gøre det


[Redigeret d. 25/06-03 22:44:57 af Troels]

Og den skal bare ligges i proceduren for Gem knappen ??
-----------------------------------
Out from here

Ok det virker næsten.. Den kommer med denne fejl:

[Error] Unit1.pas(118): Undeclared identifier: 'Savetofile'