ja hab ich. ich hab sogar andere nachricht benutzt und auch andere stellen und zeichen...
in meinem Program hab ich auch eine length funktion die während des eintippens des wortes in edit1 die länge bestimmt und in edit3 wiedergibt. Köte der fehler entstanden sein, dass aufeinmal ein wort hinzugefügt werden soll oda spielt das keine Rolle?...
Ich werd mal den Quelltext eingeben vielleicht findest du mein fehler...
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
AnzahlZeichen: TButton;
Button8: TButton;
Button9: TButton;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
procedure Edit1Change(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var s:string;
begin
S := Edit1.Text;
Delete(S, 1, 1);
Edit1.Text := S;
end;
procedure TForm1.Button2Click(Sender: TObject);
var s:string;
begin
s:= Edit1.Text;
delete (s,length(s),1) ;
Edit1.Text := s;
end;
procedure TForm1.Button3Click(Sender: TObject);
var s,p:String;
begin
p:=Edit2.Text;
S:=Edit1.Text;
Delete(S,StrToInt(p),1);
Edit2.Text:= p;
Edit1.Text:= S;
end;
procedure TForm1.Button4Click(Sender: TObject);
var s,p,q:string;
begin
s:=Edit1.Text;
p:= Edit2.Text;
q:= Edit4.Text;
Insert(q,s,StrToInt(p)) ;
end;
procedure TForm1.Edit1Change(Sender: TObject);
begin
Edit3.Text:= Inttostr(length(Edit1.text));
end;
end.
tut mir leid für die umstände...
hab sogar ein muster für mein program wie es werden soll..wenn es dir hilft an was für ein program ich da pastle....
http://www.lessing-gymnasium.de/unte...rs/dpue120.htm