Hallo
Ich schreib grad folgendes Delphi Programm (Delphi 3):
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 =
class(TForm)
MEMO1: TMemo;
Button1: TButton;
Memo2: TMemo;
Memo3: TMemo;
Memo4: TMemo;
Memo5: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
t1: integer ;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
T1:= strToInt(Memo1.Text);
end;
end.
Das ausschmücken mach ich später noch
Ich habe ein großes memo. In dieses soll ein Text eingefügt werden (Strg + V)
Wenn man auf den Button klickt, dann soll der Text in die andere Memos Felder zerlegt werden und zwar mit jeweils 510 Zeichen!
Bitte um Hilfe
