Edit Text nach : anderer Variablen zuweisen

[Crazymodder]

Hallo alle zusammen hoffe ihr könnt mir helfen
Ich habe ein Edit Feld in dem ein string eingegeben wird und sobald in der gleichen Edit ein : kommt soll der der Text der dahinter kommt in eine Variable gespeichert werden.
Würde mich über eure Hilfe freuen
Danke im Vorraus Crazymodder

[bitsetter]

Hi,
so etwa?

Delphi-Quellcode:

procedure TForm1.Edit1Change(Sender: TObject);
var
  s, Text: String;
  ipos: integer;
begin
  Text:= Edit1.Text;
  ipos:= pos(':', Text);
  if ipos > 0 then
  begin
    s := Copy(Text, ipos+ 1, length(Text)- ipos);
    caption:= s;
  end;
end;

[Blackheart]

OnChange & Pos, Copy

[Crazymodder]

Jo super thx funktioniert perfekt

Edit:
Gibt es eine Möglichkeit das hinter dem String Text das ales was hinterm : steht nicht mit zugewiesen wird.
Also wenn der User z.B

192.168.0.2:15 eigibt

ist inder variable Text das drinne:
192.168.0.2:15
und in de rVariablen s das:
15
gibt es nun eine möglichkeit das in der Variablen Text das steht:
192.168.0.2
und s soll so bleiben is ja gut so.

[Crazymodder]

Bitte nochmal helfen :cry: siehe beitrag drüber.
Danke im Vorraus

[Nuclear-Ping]

Hilfe -> Pos, Copy, Delete

[bitsetter]

Hi,
so etwa?

Delphi-Quellcode:

procedure TForm1.Edit1Change(Sender: TObject);
var
  s, Text: String;
  ipos: integer;
begin
  Text:= Edit1.Text;
  ipos:= pos(':', Text);
  if ipos > 0 then
  begin
    s := Copy(Text, 1, ipos- 1);
    caption:= s;
  end;
end;

[SirThornberry]

@bitsetter: Du hilfst ihm mit deiner Komplettlösung überhaupt nicht. Du hast schon für den ersten Fall die Komplettlösung gepostet und wie man sehen kann wurde es wohl nur kopiert aber nicht verstanden. Denn hätte er es verstanden wäre nicht danach gefragt worden wie man das vor dem Doppelpunkt bekommt.

[matashen]

@SirThornberry: Ich bin der Meinung du hast völlig recht, es macht zwar Spaß jemanden helfen zu können, und ich steh auch ab und zu auf der Leitung, hier haben wir den klassischen Fall von @crazymodder: Schau dir erst mal ein paar Tutorials an und dann schreib ein paar testprogramme... Dann verstehst du auch einen dermasen simplen Code.

[bitsetter]

@SirThornberry

Ja stimmt, da hätte er jetzt wirklich drauf kommen können.