free Pascal / Lazarus

[josao]

Ola eu sou um iniciante em programação, e gostaria de tirar algumas duvidas primeio eu estou usando o cumpilador "Lazarus" ele é muito bom multi plataforma cria ate pra windous mobile, pode ser baixado de graça nos principais sits de baixar programa, bom mas eu queria entender melhor como é q se faz pra eniciar um comando no free pascal sabe, por exemplo eu estou me batendo pra dar o comando pra opsao que criei de salvar no menu arquivo do meu programa e nao to conseguindo ele abre a caixa de dialogo mas no momento de salvar ele esta faltando o comando certo. um professor de prog; me passou por e-mail o seguinte : "TSaveDialog é apenas uma caixa onde você escolhe o diretório e o nome

do arquivo que quer salvar. É aquela caixa "Salvar" padrão do Windows ou Linux.

Pra você salvar o editor você precisa usar tratamento de arquivo texto.

Usar funções do tipo:

AssignFile

Rewrite

Reset

Writeln"

mas nun sei como fazer. ja criei o programa mas falta isso.

unit u_editor;

{$mode objfpc}{$H+}

interface

uses

Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,

StdCtrls, Menus, ComCtrls, ExtCtrls, ActnList, ExtDlgs;

type

{ TfrmEditor }

TfrmEditor = class(TForm)

dlgCores: TColorDialog;

imlPrincipal: TImageList;

MainMenu1: TMainMenu;

MenuItem1: TMenuItem;

MenuItem2: TMenuItem;

MenuItem3: TMenuItem;

MenuItem4: TMenuItem;

mnuSalvar: TMenuItem;

mnuSobre: TMenuItem;

mnuDireita: TMenuItem;

mnuCentro: TMenuItem;

mnuEsquerda: TMenuItem;

mnuAlinhamento: TMenuItem;

mnuCordoFundo: TMenuItem;

mnuCordoTexto: TMenuItem;

mnuBarradeFerramentas: TMenuItem;

mnuSair: TMenuItem;

mnuAjuda: TMenuItem;

mnuOpcoes: TMenuItem;

mnuVisualizar: TMenuItem;

mnuArquivo: TMenuItem;

mmEditor: TMemo;

popAlinhamento: TPopupMenu;

dlgSave: TSaveDialog;

stbPrincipal: TStatusBar;

tbaPrincipal: TToolBar;

timHora: TTimer;

ToolButton1: TToolButton;

ToolButton2: TToolButton;

ToolButton3: TToolButton;

ToolButton4: TToolButton;

ToolButton5: TToolButton;

ToolButton6: TToolButton;

procedure MenuItem1Click(Sender: TObject);

procedure MenuItem5Click(Sender: TObject);

procedure mmEditorChange(Sender: TObject);

procedure mnuArquivoClick(Sender: TObject);

procedure mnuBarradeFerramentasClick(Sender: TObject);

procedure mnuCentroClick(Sender: TObject);

procedure mnuCordoFundoClick(Sender: TObject);

procedure mnuCordoTextoClick(Sender: TObject);

procedure mnuDireitaClick(Sender: TObject);

procedure mnuEsquerdaClick(Sender: TObject);

procedure mnuSairClick(Sender: TObject);

procedure mnuSalvarClick(Sender: TObject);

procedure mnuSobreClick(Sender: TObject);

procedure mnuVisualizarClick(Sender: TObject);

procedure RadioGroup1Click(Sender: TObject);

procedure timHoraTimer(Sender: TObject);

private

{ private declarations }

public

{ public declarations }

end;

var

frmEditor: TfrmEditor;

implementation

uses u_sobre;

{ TfrmEditor }

procedure TfrmEditor.MenuItem1Click(Sender: TObject);

begin

end;

procedure TfrmEditor.MenuItem5Click(Sender: TObject);

begin

end;

procedure TfrmEditor.mmEditorChange(Sender: TObject);

begin

end;

procedure TfrmEditor.mnuArquivoClick(Sender: TObject);

begin

end;

procedure TfrmEditor.mnuBarradeFerramentasClick(Sender: TObject);

begin

tbaPrincipal.Visible := not tbaPrincipal.Visible;

mnuBarradeFerramentas.Checked := tbaPrincipal.Visible;

end;

procedure TfrmEditor.mnuCentroClick(Sender: TObject);

begin

mmEditor.Alignment := taCenter;

mnuEsquerda.Checked := False;

mnuCentro.Checked := True;

mnuDireita.Checked := False;

end;

procedure TfrmEditor.mnuCordoFundoClick(Sender: TObject);

begin

dlgCores.Color := mmEditor.Color;

if dlgCores.Execute then

mmEditor.Color := dlgCores.Color;

end;

procedure TfrmEditor.mnuCordoTextoClick(Sender: TObject);

begin

dlgCores.Color := mmEditor.Font.Color;

if dlgCores.Execute then

mmEditor.Font.Color := dlgCores.Color;

end;

procedure TfrmEditor.mnuDireitaClick(Sender: TObject);

begin

mmEditor.Alignment := taRightJustify;

mnuEsquerda.Checked := False;

mnuCentro.Checked := False;

mnuDireita.Checked := True;

end;

procedure TfrmEditor.mnuEsquerdaClick(Sender: TObject);

begin

mmEditor.Alignment := taLeftJustify;

mnuEsquerda.Checked := True;

mnuCentro.Checked := False;

mnuDireita.Checked := False;

end;

procedure TfrmEditor.mnuSairClick(Sender: TObject);

begin

Close

end;

procedure TfrmEditor.mnuSalvarClick(Sender: TObject);

begin

if dlgSave.Execute Then;

end;

procedure TfrmEditor.mnuSobreClick(Sender: TObject);

begin

frmSobre.ShowModal;

end;

procedure TfrmEditor.mnuVisualizarClick(Sender: TObject);

begin

end;

procedure TfrmEditor.RadioGroup1Click(Sender: TObject);

begin

end;

procedure TfrmEditor.timHoraTimer(Sender: TObject);

begin

stbPrincipal.Panels[1].Text := TimeToStr(Time);

end;

initialization

{$I u_editor.lrs}

end.

[josao]

eu queria conversar com alguem que esteja aprendendo ou ja saiba sobre programação, estou aprendendo free pascal meu msn: [email protected]