IF big

0

jak zrobic cos takiego:
if Pos('@@', Edit1.Text) = 1 then
skasowac znaki @@
showmessage(edit1.Text bez znakow @@); <- o taki efekt mi chodzi

<<<<<<<<<<<<<<<<<<
Jak nadac tytul showmessage??

0
var
    str : string;
begin
    if Pos('@@', Edit1.Text) = 1 then begin
        str := Edit1.Text;
        delete(str, 1, 2);
        Showmessage(str);
    end;
end;

//DOPISANE
Nie da się nadać tytułu Showmessagowi, ale możesz użyć MessageBox :

Application.MessageBox('Komunikat','Tytul',MB_OK);
0

ShowMessage ma taki tytuł jak aplikacja (Application.Title)

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