[DELPHI] Tmemo

[Linuz]

voglio realizzare una sottospecie di blocco note in delphi utilizzando una Tmemo.avrei bisogno di sapere alcune cose:

1)come faccio a creare una nuova memo facendo click su un bottone(cioè la stessa cosa che succede cliccando sul bottone "NUOVO" del blocco note)?;

2)come faccio a caricare un file di testo nella memo (cioè la stessa cosa che succede cliccando sul bottone ("APRI" di blocco note)?;

3)come faccio a salvare il contenuto della memo come file di testo (cioè la stessa cosa che succede cliccando sul bottone ("SALVA CON NOME" di blocco note)?;

4)come faccio a stampare il contenuto della memo (cioè la stessa cosa che succede cliccando ssul bottone ("STAMPA") di blocco note)?;

vi prego datemi una mano!!!!!!



grazie!:metallica

[p87]

1)Prima controlli se il file è stato modificato, e quindi deve essere salvato:
if Memo1.Modified then...

Dopodichè cancelli ciò che c'è all'interno del Memo: Memo1.Lines.Clear;

2)if OpenDialog1.Execute then
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);

3)if SaveDialog1.Execute then
Memo1.Lines.SaveToFile(SaveDialog1.FileName);

4)
var
Line: Integer;
PrintText: TextFile; {declares a file variable}
begin
if PrintDialog1.Execute then
begin
AssignPrn(PrintText); {assigns PrintText to the printer}
Rewrite(PrintText); {creates and opens the output file}
Printer.Canvas.Font := Memo1.Font; {assigns Font settings to the canvas}
for Line := 0 to Memo1.Lines.Count - 1 do

Writeln(PrintText, Memo1.Lines[Line]); {writes the contents of the Memo1 to the printer object}
CloseFile(PrintText); {Closes the printer variable}
end;
end;


Ciauz

[Linuz]

grazie mille!!!!mi sei stato di grande aiuto.Sapresti mica come fare per aprire la finestra contenente i vari tipi di font tramite il click di un pulsante (tasto "carattere" del blocco note)?
grazie ancora!:metallica :gren:

[p87]

Inserisci un FontDialog, poi:

if FontDialog1.Execute then
Memo1.Font:=FontDialog1.Font;

[Linuz]

grazie mille!!!!!!!!!ho risolto il problema!ora il mio notepad è una bomba!!!!!!!!!grazie!!!!:metallica :metallica :metallica

[Linuz]

ciao a tutti.avrei ancora bisogno di voi.avrei bisogno di conoscere il codice per cercare del testo all' interno del mio notepad (cioè il tasto "trova" del blocco note) ed anche il codice per sostituire del testo (cioè il tasto "replace" del blocco note".grazie