Operationen mit Zeichenketten

[Lin]

ja da die stelle beträgt nur 2 während der string 5 lang ist.
mir ist gerade was aufgefallen wenn ich den programm starte, ist in mein edit2 und edit3 wo die stelle angegeben werden muss die aufschrift Edit2 bzw. Edit3 zu lesen, wenn ich die lösche und durch 2 ändere, taucht bei der ereignisprotokoll 2 mal in rot:
Thread-ID:1868.Prozess Projekt1.exe(3088)
Thread-ID:3840.Prozess Projekt1.exe(3088)

hoffe das man damit was anfangen kann....

[DeddyH]

Das sind eben die Standardtexte, die die IDE automatisch vergibt (also der Name der jeweiligen Komponente). Hast Du denn zur Laufzeit einmal andere Werte eingegeben und damit getestet?

[Lin]

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

[DeddyH]

Häng doch entweder das Projekt als *.zip an oder benenne Deine Komponenten so, dass man auf deren Funktion schließen kann (bei btnDeleteFirstChar weiß ich, dass das erste Zeichen gelöscht werden soll, aber was soll bei Button24 passieren?).

[Sir Rufo]

Delphi-Quellcode:

Procedure TForm1.Button4Click(Sender: TObject);
var s,p,q:string;
begin
  s:=Edit1.Text;  // hier ist meine nachicht 
  p:= Edit2.Text;  // hier ist die stelle
  q:= Edit4.Text;  // da gebe ich mein zeichen ein, dass hinzugefügt  werden muss
  Insert(q,s,StrToInt(p)) ;
  Edit1.Text := s; // und hier wird es jetzt auch angezeigt
end;

Eine kleine Bitte: Setze den Quelltext doch auch bitte in Delphi-Tags (so wie ich das gemacht habe)

[Lin]

tut mir leid, dass es so lange gedauert hat, hab versucht als zip datei zu senden. Hat leider nicht geklappt wenn ich den Knopf Anhang verwalten drücke pessiert nichts...
ich hoffe ich konnte irgendwie weiter helfen. Ansonsten ist es halb so schlimm...

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Nachricht: TEdit;
    AngegebeneStelle: TEdit;
    LaengeDesTextes: TEdit;
    NeuerZeichen: TEdit;
    AnzahDerZeichen: TEdit;
    Loesche1ziffer: TButton;
    loescheLetzteZiffer: TButton;
    LoescheAngegebeneZiffer: TButton;
    FuegeDieZiffer: TButton;
    AllesZuKleinBuchstabe: TButton;
    AnzahlZeichen: TButton;
    LoescheAngegebenenZeichen: TButton;
    PalindromDa: TButton;
    PalindromJa: TRadioButton;
    PalindromNein: TRadioButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    ZuGrossBuchstabe: TButton;
    procedure NachrichtChange(Sender: TObject);
    procedure Loesche1zifferClick(Sender: TObject);
    procedure loescheLetzteZifferClick(Sender: TObject);
    procedure LoescheAngegebeneZifferClick(Sender: TObject);
    procedure FuegeDieZifferClick(Sender: TObject);
    procedure AngegebeneStelleChange(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Loesche1zifferClick(Sender: TObject);
var s:string;
begin
  S := Edit1.Text;      { TODO : S ist mein Nachricht, hier wird die erste Stelle gelöscht }
Delete(S, 1, 1);
Edit1.Text := S;
end;

procedure TForm1.loescheLetzteZifferClick(Sender: TObject);
var s:string;
begin
 s:= Edit1.Text;         { TODO : S ist mein Nachricht, hier wird die letzte Stelle gelöscht }
delete (s,length(s),1) ;
Edit1.Text := s;
end;

procedure TForm1.LoescheAngegebeneZifferClick(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.FuegeDieZifferClick(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.NachrichtChange(Sender: TObject);
begin
   Edit3.Text:= Inttostr(length(Edit1.text));
end;


end.

[Lin]

irgendwie reagiert mein Program nicht mehr...-__-"
hatte schon die Idee alles neu zu schreiben(dachte vielleicht habe ich ausversehen etwas wichtiges gelöscht) bringt aber nicht wirklich viel...>_<
Ich habe den Befehl einfügen schon aufgegeben dachte mir nachdem ich ALLES neu geschrieben und geformt habe, ich sollte nun mit dem Befehll alles zu kleinBuchstaben umwandel arbeiten. Der funktioniert auch irgendwie nicht obwohl ich mir beinahe sicher bin, dass ich es richtig geschrieben habe...hat irgendjemand eine Idee was man da machen kann oder ist es hoffnungslos???

Befehl lautet für in Edit1 geschriebene Nachricht in klein Buchstaben umzuwandeln:

Delphi-Quellcode:

procedure TForm1.Button6Click(Sender: TObject);
var s,s1:string;
begin
s:=Edit1.Text;
s1:= AnsiLowerCase(s);
end;

kann irgendjemand mir sagen was für alternative es gibt?

[p80286]

Delphi-Quellcode:

procedure TForm1.Button6Click(Sender: TObject);
var s,s1:string;
begin
  s:=Edit1.Text;
  s1:= AnsiLowerCase(s);
  Edit1.Text:=s1;
end;

Du mußt s1 auch wieder zur Anzeige bringen.

Gruß
K-H