Edit

0

Jak z pola edit1 usunac tekst i wstawic go do edit2 , po okreslonym ciagu znakow , np :

Jezeli w edit1 jest : "xxxxxCOSyyyyy" to zeby w polu edit1 zostalo : "xxxxx" a do pola edit2 zostalo wpisane "COSyyyyy"

JAK TO ZROBIC ??--Ozyrys Pozdrawiam !

0

var
SzukanyTekst: String;
Pozycja : Integer;
begin
SzukanyTekst := 'COS';
Pozycja := Pos(SzukanyTekst, Edit1.Text);
{
jezeli funkcja nie moze uwzgledniac maly/duzych liter piszemy:
Pozycja := Pos(UpperCase(SzukanyTekst), UpperCase(Edit1.Text));
}
if Pozycja > 0 then
begin
Edit2.Text := Copy(Edit1.Text, Pozycja + Length(SzukanyTekst),Length(Edit1.Text));
Edit1.Text := Copy(Edit1.Text, 1, Pozycja - 1);
end;
end;

--
-=-=[ Delphi 3, 6 ]=-=-
-=-=-==[ LKS ]==-=-=-
-=[ [email protected] ]=-

0

var
s : string;
a : integer;
begin
//form1.caption := inttostr(edit2.GetTextLen);
s := edit2.text;
delete(s,strtoint(edit1.text)+ 1,strtoint(edit1.text) - 1);
edit3.text := edit3.text+s;
end;

0

edit1 - to twoj zakres
edit2 - twoj tekst
edit3 - towj koncowy wynik

BTW LKS napisales szybciej ode mnie :) - ja pisalem w tym samym czasie co ty :)

{browar}

0

OK wielkie dzieki za pomoc {brawo} --Ozyrys Pozdrawiam !

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0