Overførsel

Ja når jeg trykker på knappen "Save" så skal teksten fra memo2 over i edit1.. og det vil den ikke helt rigtigt, her kommer koden:

Kode 

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    Filer1: TMenuItem;
    Help1: TMenuItem;
    memo2: TMemo;
    Save: TButton;
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure SaveClick(Sender: TObject);
    procedure Help1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  navn:string;

implementation

{$R *.dfm}

procedure TForm1.Help1Click(Sender: TObject);
begin
showmessage('Tror godt at du selv kan finde ud af det');
end;

procedure TForm1.SaveClick(Sender: TObject);
begin
readln(TForm1.memo2Change(navn));
TForm1.Edit1Change.Caption := navn;
showmessage('Saved');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
close;
end;

end.

Kan du ikke bare gøre sådan:

Edit1.Text := Memo2.Text;
showmessage('Saved');

Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

Oh thanks mate det kunne man godt, er jo ikke så let når man er nybegynder

Oh thanks mate det kunne man godt, er jo ikke så let når man er nybegynder

Hehe så lidt

Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------