Ładny brzuch
mam dwa edity i btn'a. w pierwszym mam jakis tekst, w ktorym mam tekst i w nim sa cudzyslowia. przyklad: [text1 "ale lole" -smiech"]. chcialbym, aby po kliknieciu na btn, w drugim edicie wyswietlila sie zawartosc pomiedzy pierwszym i ostatnim cudzyslowiem, z textu z edita1, tzn (wg tego przykladu) [ale lole" -smiech]. (nawiasty kwadratowe oznaczaja "obramowki" edita ;))
Prosilbym o kodziki...
byly juz kody, jak wyciagnac tekst, tylko ze w moim przypadku, kod dotyczy pierwszego i ostatniego ustalonego znaku... w tym ciagu znakow takze moze byc ten znak...
procedure TForm1.Button1Click(Sender: TObject); var Text, S: string; I: Integer; begin Text := Edit1.Text; I := Pos('"', Text); if I <> 0 then begin Text := ReverseString( Copy(Text, I + 1, Length(Text) - I) ); I := Pos('"', Text); S := ReverseString( Copy(Text, I + 1, Length(Text) - I + 1) ); ShowMessage(S); end; end;
Kod nie jest najszybszy, zostawiam do wasnych przemyle B)
procedure TForm1.Button1Click(Sender: TObject); var i:integer; s:string; begin s:='text1 "ale lole" -smiech"'; i:=pos('"',s); if i=0 then exit; delete(s,1,i); for i:=length(s) downto 1 do if s[i]='"' then break; delete(s,i,1); end;
//BTW do ReverseString potrzeba uses StrUtils ;)
Uytkownik Cyrkiel edytowa ten post 13 luty 2006, 15:23
lukexpert - Niby wszystko piknie i ladnie, ale moje D7 nie widzi procedury ReverseString. Jaka biblioteka jest potrzebna?
w zwiazku z kodem Cyrkla - tesh tak kombinowalem, ale mi nie wyszlo. twoj kodzik sprawdze ;) thx 4ever.
lukexpert - Niby wszystko piknie i ladnie, ale moje D7 nie widzi procedury ReverseString. Jaka biblioteka jest potrzebna?
...
yo thx za moment check'uje. a NIE mam helpa! mam za malo miejsca na dysku (dysk 1gb)... zrozumcie mnie... ale jest spox. win98se zajmuje 300mb... jeszcze kilka innych aplikacji...
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Prosilbym o kodziki...
byly juz kody, jak wyciagnac tekst, tylko ze w moim przypadku, kod dotyczy pierwszego i ostatniego ustalonego znaku... w tym ciagu znakow takze moze byc ten znak...
procedure TForm1.Button1Click(Sender: TObject); var Text, S: string; I: Integer; begin Text := Edit1.Text; I := Pos('"', Text); if I <> 0 then begin Text := ReverseString( Copy(Text, I + 1, Length(Text) - I) ); I := Pos('"', Text); S := ReverseString( Copy(Text, I + 1, Length(Text) - I + 1) ); ShowMessage(S); end; end;
Kod nie jest najszybszy, zostawiam do wasnych przemyle B)
procedure TForm1.Button1Click(Sender: TObject); var i:integer; s:string; begin s:='text1 "ale lole" -smiech"'; i:=pos('"',s); if i=0 then exit; delete(s,1,i); for i:=length(s) downto 1 do if s[i]='"' then break; delete(s,i,1); end;
//BTW do ReverseString potrzeba uses StrUtils ;)
Uytkownik Cyrkiel edytowa ten post 13 luty 2006, 15:23
lukexpert - Niby wszystko piknie i ladnie, ale moje D7 nie widzi procedury ReverseString. Jaka biblioteka jest potrzebna?
w zwiazku z kodem Cyrkla - tesh tak kombinowalem, ale mi nie wyszlo. twoj kodzik sprawdze ;) thx 4ever.
lukexpert - Niby wszystko piknie i ladnie, ale moje D7 nie widzi procedury ReverseString. Jaka biblioteka jest potrzebna?
...
yo thx za moment check'uje. a NIE mam helpa! mam za malo miejsca na dysku (dysk 1gb)... zrozumcie mnie... ale jest spox. win98se zajmuje 300mb... jeszcze kilka innych aplikacji...