Jak moge przypisac oddzielnie kazde slowo zawarte w edicie do osobnych wartosci string? tzn kazde slowo bedzie stanowilo inna wartosc
Zrób tak:
Var S:TStringList;
Begin
S:=TStringList.Create;
S.Text:=StringReplace(Edit1.Text,' ',#13#10,[rfReplaceAll]);
// Tutaj masz podzielone stringi od 0 do S.Count-1 pobierasz string S.Strings[Nr];
S.Free;
End;
a jak mam zrobic taka funkcje:
if (pierwszeslowo := 'costam')and(drugieslowo 0) then costam costam
Nie możesz czegoś takiego zrobić.
- := oznacza podstaw, a = równa się, podczas sprawdzania wartości logicznej wyrażenia nie możesz niczego podstawiać,
- String nie jest wartoscią liczbową, może być tylko StrToInt(S.Strings[1])0.
If (S.Count=2) And (S.Strings[0]='costam') And (S.Strings[1]='costam' ) Then costam;
a i jeszcze jak sprawdzic czy zostalo podane tylko jedno slowo
radze ci uzyc modolu split w faq czy w gotowcach gdzies bylo
nie dobra mam ;)
Chyba już przez analogie i to co napisałęm mógłbyś to wywnioskować!!
S.Count odpowiada za ilosc stringow (czyli w tym przypadku słów).
A jak wchodzic\wychodzic do\z folderow? i jak sprawdzic w jakim sie jest np. w Tmemo badz Tedit (np.
poszukaj w helpie jest chyba z 15 różnych funkcji do porównywania stringów. jedna z nich to CompareText. Zwraca 0 (zero) jeśli tekst jest taki sam ale uwaga nie bierze pod uwagę wielości liter czyli 'N' oraz 'n' to dla niej to samo.
no okey, jeszcze jedno... jak sprawdzic czy w ciagu znakow (nie koniecznie oddzielonych) wystepuje np slowo 'pociag'
np. babciakleofasaprzyjedziepociagiem ?
? jak przechwycic taki rzut?
rzut???
kurde poszukaj we FAQ??? co ty szukac nie umiesz???
POS'EM!!!
Umiem... :-) [Ctrl]+[F] :-D Ok