aus der zwischenablage holen und editfenster wechseln?

[PaddyMu]

Da dies mein erster Beitrag ist hallo erstmal
ich bin ein ziemlicher neuling im delphibereich und entschuldige mich hiermit für evtl. dumme fragen etc. ;)
ich komme direkt aus einem forum das damit wirbt dass es bei fragen und mitarbeit immer offen ist, mir bis jetzt aber außer unverschämten antworten nix beigebracht hat.. ich hoffe das ist hier nicht so

so zu meinen fragen
wie kann ich eine zahl(ip) aus der zwischenablage holen und sie in dreierblöcken auf 4 editfelder aufteilen?

und

gibt es eine möglichkeit, dass wenn ein editfeld mit drei stellen ausgefüllt ist ins nächste gewchselt wird?
bitte seid gnädig zu mir und verwendet nicht so viele fachwörter bin wiegesagt ein ziemlicher noob in dem bereich ;)
MfG

[dominikkv]

herzlich willkommen :party:

also die zwischenablage erreichst du über clipboard:

Delphi-Quellcode:

uses Clipbrd;
showmessage(Clipboard.AsText);

jetzt musst du nur noch die zahlen rausfiltern, such am besten mit Pos bzw PosEx nach dem Punkt der die trennt.

und mit dem edit wechseln:
überprüfe im onChange bzw onKeyPress die anzahl der buchstaben (length(edit1.text)) und spring dann zum nächsten edit (edit2.setFocus)

[peschai]

Hallo

Du könntest eventuell auch anstelle von 4 editfeldern eventuell ein Maskedit verwenden mit einer Maske für IP-Werte zb "999.999.999.999"

[PaddyMu]

hallo
danke erstrmal für die antworten^^
kannst du mir mal ein beispiel nennen für das lengh?
also (3(Edit1.Text)) (3 ist die stelle)?
MfG

[dominikkv]

length ist eine Funktion und liefert die länge zurück, also einfach:

Delphi-Quellcode:

var 
  länge: Integer;

// ...

länge := length(edit1.text);
showmessage(Format('Der String ist %d Zeichen lang!', [länge]));

[PaddyMu]

ähm ok das funktioniert schon fast^^
ich habe laenge mit 3 definiert aber es springt direkt nach einer zahl ins andere edit..

[dominikkv]

zeig mal was wie deine procedure aussieht dann können wir dir vllt helfen :wink:

[PaddyMu]

Delphi-Quellcode:

procedure TForm1.Edit1Change(Sender: TObject);
begin
     Laenge:=3;
     Laenge:=length(Edit1.Text);
     Edit2.SetFocus;
end;

da.. ist bestimmt ein saublöder fehler drin^^
Laeunge ist oben mit integer definiert

[dominikkv]

Zitat:

Zitat von PaddyMu

Delphi-Quellcode:

procedure TForm1.Edit1Change(Sender: TObject);
begin
     Laenge:=3;
     Laenge:=length(Edit1.Text);
     Edit2.SetFocus;
end;

da.. ist bestimmt ein saublöder fehler drin^^

na klar xD

1.) ist laenge eine globale Variable?
Regel: so lokal wie möglich deklarieren

2.) diese prozedure wird immer ausgeführt wenn ein sich der inhalt des edits ändert. also bei jedem tastendruck den man macht.
und zwar wird laenge zuerst 3 zugewiesen, dann gleich dannach die länge vom edit.string -> warum zuesrt 3? bringt überhaupt nÜx
und dann wird das fokus verändert...
du willst ja nur verändern wenn die länge größergleich 3 ist.
also ganz einfach:

Delphi-Quellcode:

procedure TForm1.Edit1Change(Sender: TObject);
begin
  if length(Edit1.Text) >= 3 then
    Edit2.SetFocus;
end;

[quendolineDD]

Bis jetzt legst du die Varibable laenge auf 3 und dann auf die Länge des Editfeldes , danach springst du zum nächsten.

Delphi-Quellcode:

procedure TForm1.Edit1Change(Sender: TObject);
begin
  if length(Edit1.Text) >= 3 then
    Edit2.SetFocus;
end;

Da war wer schneller :-\
Nun hast du in 3 Posts den gleichen Quelltext xD