New, copy, paste osv. HJÆLP!!!

Alle først skal du have et SaveDialog den finder du inde i tabben "Dialogs" og vælger SaveDialog putter den ind på Form så gør du sårn

så skriver du i form OnCreate : SaveDialog1.DefaultExt:='*.txt';

På "New" knappen skriver du


Var
I: Integer;
Begin
I:= MessageDLG('Vil du gemme før du laver et nyt dokument?', mtconfirmation, [mbyes, mbno], 0);
Case I of
6: If SaveDialog1.Execute then Memo1.Lines.SaveToFile(SaveDialog1.FileName);
7: Memo1.Clear;
End;
End;


Kan desværre ikke helt for det til at virke prøver lige lidt


[Redigeret d. 18/11-03 14:49:18 af Jan Emil]

[Redigeret d. 18/11-03 14:52:06 af Jan Emil]

Jeg er lige begyndt på delphi og er igang med en teksteditor...

Problemet jeg har er jeg har en en Toolbar med 6 knapper (New, open, gem,cut,copy,paste)...
Jeg kan bare ikke finde ud af hvordan man laver new, cut, copy og paste...

Hvis der er nogen der kan forklare mig hvad koden er for det så ville jeg blive meget glad

I will Survive...

Kandu li PHP???
Så tjek denne gruppe:
http://www.udvikleren.dk/groups/?gid=132

Hej
Jeg har lige lavet noget til dig du kan downloade det her http://www.brobak.dk/tekst editor.zip
for det er nemmere ind at forklar det

Mvh Brobaksoft
-------------------------------------
www.brobaksoft.brobak.dk

Kopier : Memo1.CopyToClipboard
Klip/cut : Memo1.CutToClipBoard
Past/sæt ind : PasteFromClipboard

[Redigeret d. 18/11-03 00:39:00 af Jan Emil]

Kopier : Memo1.CopyToClipboard
Klip/cut : Memo1.CutToClipBoard
Past/sæt ind : PasteFromClipboard

[Redigeret d. 18/11-03 00:39:00 af Jan Emil]

Tusind tak Jan Emil, det virkede... Jeg skulle bare sætte memo1. ind foran PasteFromClipboard

Men du har ikke svaret på hvordan man lavet et nyt dokument... Jeg er selv nået frem til noget ala:

memo1.Clear;
Som sletter alt tekst på min memo... Det er godt nok for mig, men er der en mulighed for at jeg kan lave en dialog, der spørger om man vil gemme før man laver en ny???

I will Survive...

Kandu li PHP???
Så tjek denne gruppe:
http://www.udvikleren.dk/groups/?gid=132

Men jeg kan godt lave et helt program med alle funktionerne New, Copy, Past , Cut , Dialog

Alle først skal du have et SaveDialog den finder du inde i tabben "Dialogs" og vælger SaveDialog putter den ind på Form så gør du sårn

så skriver du i form OnCreate : SaveDialog1.DefaultExt:='*.txt';

På "New" knappen skriver du

Var
I: Integer;
Begin
I:= MessageDLG('Vil du gemme før du laver et nyt dokument?', mtconfirmation, [mbyes, mbno], 0);
Case I of
6: Memo1.Lines.SaveToFile(Savedialog1.FileName);
7: Memo1.Clear
End;




[Redigeret d. 18/11-03 14:49:18 af Jan Emil]

Det virker ikke... Når jeg klikker på New spørger den om jeg vil gemme
Hvis jeg vælger nej så virker det fint men hvis jeg vælger ja kommer den med en fejl:
Project Project1.exe raised exception class EFCreateError with message 'Cannot create file '. Process stoped. Use Step or Run to continue
og så markere den:
6: Memo1.Lines.SaveToFile(SaveDialog2.FileName);

I will Survive...

Kandu li PHP???
Så tjek denne gruppe:
http://www.udvikleren.dk/groups/?gid=132

Hehe i know prøver lige igen så laver vi lige et "nøds" tilfælde

Sender hele programmet

linket : http://www.bacher.friserverplads.dk/Opgave udv.zip

[Redigeret d. 18/11-03 15:13:56 af Jan Emil]


Så kan du eksperentere lidt med det..

[Redigeret d. 18/11-03 15:14:50 af Jan Emil]

Hehe i know prøver lige igen så laver vi lige et "nøds" tilfælde

Sender hele programmet

linket : http://www.bacher.friserverplads.dk/Opgave udv.zip

[Redigeret d. 18/11-03 15:13:56 af Jan Emil]


Så kan du eksperentere lidt med det..

[Redigeret d. 18/11-03 15:14:50 af Jan Emil]

Tusind tak for det hele... Du får de 25 point


I will Survive...

Kandu li PHP???
Så tjek denne gruppe:
http://www.udvikleren.dk/groups/?gid=132

Hvis du ikke allerede har fundet ud af det:

begin

if MessageDlg('Vil du gemme før du laver et nyt dokument?', mtconfirmation, [mbyes, mbno], 0) = mrYes then
Memo1.Lines.SaveToFile(Savedialog1.FileName);

Memo1.Clear;

end;

Hvis du ikke allerede har fundet ud af det:

begin

if MessageDlg('Vil du gemme før du laver et nyt dokument?', mtconfirmation, [mbyes, mbno], 0) = mrYes then
if SaveDialog1.Execute then
Memo1.Lines.SaveToFile(SaveDialog1.FileName);

Memo1.Clear;

end;