Usuwanie znakow z EDIT

0

Witam wszystkich, jestem tu nowy, na starcie mam pytanie:

jak najprostszym sposobem usunac jakis tekst z edita, chodzi mi o to, ze:

klikam na button1 i dodaje sie do edita np. 'kurs programowania', potem klikam na button 2 i co wpisac by sie usunal np. tylko ciag kurs?

0

var
temptext: string;
begin
temptext:= edit1.Text;
delete(temptext,1,4);
edit1.Text:= temptext
end;

tylko nie można Od razu dać delete(edit1.text,1,4);
bo to musi być zmienna !! !! !! !! !!--Nieważne czy producent jest z Ameryki czy z Niemiec i tak wszystko jest z Tajwanu

0

var
s : string;
begin
s := edit1.text;
delete(s,pos('tekst',s),length('ten sam tekst'));
edit1.text := s;
end;

jezeli cos zle dziala skontaktuj sie ze mna na gg

[cisza]
lolek

0

wielkie dzieki, sprawdze to :)
spoko sprawdze ale jak beda problemy to potem ci odpowiem bo mam delphina na innnym kompie, ale THX

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