Gem (ikke gem som)

procedure TForm1.Gem1Click(Sender: TObject);
begin
if Filnavn <> '' then
Memo1.lines.savetofile(Filnavn); //Gem filen
Memo1.Modified := false
else
Gemsom1.click;
end;

end.

Har skrevet dette... Men den kommer med fejlen:
[Error] Unit1.pas(423): 'END' expected but 'ELSE' found

Hvad kan det skyldes?

Og så forstod jeg hedder ik det der global variabel
Har lavet den til string[Redigeret d. 07/10-02 15:47:02 af Mark Jensen]

Når du har flere linier mellem then og else, eller du har flere linier du vil udføre i din else-del, skal du bruge begin og end til at afgrænse linierne. I dit tilfælde:
<pre>
procedure TForm1.Gem1Click(Sender: TObject);
begin
if Filnavn <> '' then
begin
Memo1.lines.savetofile(Filnavn); //Gem filen
Memo1.Modified := false;
end
else
Gemsom1.click;

end;

end.
</pre>

Skal du udføre mere end "Gemsom1.click" hvis Filenavn = '', skal du skrive
<pre>
procedure TForm1.Gem1Click(Sender: TObject);
begin
if Filnavn <> '' then
begin
Memo1.lines.savetofile(Filnavn); //Gem filen
Memo1.Modified := false;
end
else
begin
Gemsom1.click;
//Flere ting
//Endnu flere ting
end;

end;

end.
</pre>

Hvordan laver jeg en gem knap, den skal ikke virke som Gem som.

jeg har også et andet spørgsmål:

'<style>'#13#10'body {'#13#10'scrollbar-3d-light-color: #000000;'#13#10'scrollbar-arrow-color: #000000;'#13#10'scrollbar-base-color: #000000;'#13#10'scrollbar-dark-shadow-color: #000000;'#13#10'scrollbar-face-color: #000000;'#13#10'scrollbar-highlight-color: #000000;'#13#10'scrollbar-shadow-color: #000000;'#13#10'}'#13#10'</style>'


Hvad er fejlen i det?

Håber i kan hjælpe

Jeg har et svar på spørgsmål 2:

FJERN ALLE " '#13#10' "'ERNE FRA DIT STYKKE KODE!

www.andreaslinks.tk - Company Site
www.ournameclan.tk - AA : O Clan site

Jeg har et svar på spørgsmål 2:

FJERN ALLE " '#13#10' "'ERNE FRA DIT STYKKE KODE!
quote]
Hmm.. det er dem som laver "enteret", men har selv fundet ud af det

Jeg har et svar på spørgsmål 2:

FJERN ALLE " '#13#10' "'ERNE FRA DIT STYKKE KODE!
quote]
Hmm.. det er dem som laver "enteret", men har selv fundet ud af det

skift #13#10 ud med +#13#10+
-
neuroman? det' da mig
Aloha - Er du fresh???

Der er flere måder at opfatte bare "gem" på. Du kan bare gemme fx. en memo med denne kode<pre>Memo1.Lines.SaveToFile('C:\\fil.txt');</pre>Eller hvis vi går ud fra du allerede har en SaveDialog1, kan du gøre sådan her<pre>if SaveDialog1.FileName = '' then begin
SaveAs1Click(Sender);
end else begin
Memo1.Lines.SaveToFile(SaveDialog1.Filename);
end;</pre>
Det denne her kode gør, er at hvis du ikke har gemt den nuværende fil før vil den åbne SaveDialog'en, hvis du har gemt før, overskriver den automatisk den gamle fil. Husk at når du trykker på "ny" skal filnavnet i SaveDialog1 være '', altså ingenting, og når du åbner noget skal SaveDialog1.Filename være det samme som OpenDialog1.Filename. Altså for den nye<pre>SaveDialog1.Filename := '';</pre>og for åbn<pre>with OpenDialog1 do
if execute then begin
// Bla bla kode her
SaveDialog1.Filename := Filename;
end;</pre>

Mark H. Jensen
mouzulu@hotmai.com
www.freewebs.com/mhj/

Jeg har et svar på spørgsmål 2:

FJERN ALLE " '#13#10' "'ERNE FRA DIT STYKKE KODE!
quote]
Hmm.. det er dem som laver "enteret", men har selv fundet ud af det
skift #13#10 ud med +#13#10+
-
neuroman? det' da mig
Aloha - Er du fresh???

Ligemeget, har fået det til at virke.. Vil bage gerne have Gem til at virke

Hmm... Kan ikke få det til at virke helt.. Min kildekode er på www.markjensen.dk/notepad.zip
"Ny" har jeg lige lavet, men ved ik helt hvordan den skal fungere, og Gem ved jeg heller ikke hvordan skal laves. Vil du ikke nok hjlæpe mig? Please...

På forhånd tak

Mark

Hvordan laver jeg en gem knap, den skal ikke virke som Gem som.

jeg har også et andet spørgsmål:

'<style>'#13#10'body {'#13#10'scrollbar-3d-light-color: #000000;'#13#10'scrollbar-arrow-color: #000000;'#13#10'scrollbar-base-color: #000000;'#13#10'scrollbar-dark-shadow-color: #000000;'#13#10'scrollbar-face-color: #000000;'#13#10'scrollbar-highlight-color: #000000;'#13#10'scrollbar-shadow-color: #000000;'#13#10'}'#13#10'</style>'


Hvad er fejlen i det?

Håber i kan hjælpe

Den kode jeg plejede at bruge var vidst nok:

1-Opret en Variable ved navn Filnavn.Den skal være global og
skal stå under delen VAR

2-I din Gem knap skriver du så:
<pre>
if Filnavn = <> '' then
richedit1.lines.savetofile(Filnavn); //Gem filen
Richedit1.Modified := false
else //ellers
Gemsom1.click;
</pre>

PS.Husk at indstille det hele rigtigt så det passer med dinne ting på formen

3-Find din Gem som knap,slet alt kode som står i den,og skriv så flg.
<pre>
If savedialog1.execute then
begin
Richedit1.lines.savetofile(savedialog1.filename);
Filnavn := savedialog1.filename;
end;
</pre>

4-Og i Open skal der stå:
<pre>
if Opendialog1.execute then
begin
richedit1.lines.loadfromfile(opendialog1.filename);
Filnavn := OpenDialog1.filname;
end;
</pre>

Håber det kunne hjælpe dig lidt


MVH.

Computerfreak.

procedure TForm1.Gem1Click(Sender: TObject);
begin
if Filnavn <> '' then
Memo1.lines.savetofile(Filnavn); //Gem filen
Memo1.Modified := false
else
Gemsom1.click;
end;

end.

Har skrevet dette... Men den kommer med fejlen:
[Error] Unit1.pas(423): 'END' expected but 'ELSE' found

Hvad kan det skyldes?

Og så forstod jeg hedder ik det der global variabel
Har lavet den til string[Redigeret d. 07/10-02 15:47:02 af Mark Jensen]