Kazete mi nqkakva funkcija za tyrsene v Tstrings, IndexOf ne mi vyrshi rabota, poneze tyrsi syvpadenie na cjal string (Strings[n]) ot spisyka?
Ako mozete da mi kazete i funkcii za kopirane na chast ot edin ansi string v drug ( primerno pyrvite 3 simvola, mislq che imashe gotovi takiva funkcii, no v helpa ne otkrih podobno neshto pone za ansi string), shte sym Vi mnogo blagodaren.
Blagodarq predvaritelno.

1. i:=StrPos(Strings.Text,"some text"); //moje i da sam obalkal ne6to , no pone 6te te naso4i :)

2. Proveri li AnsiStrCopy mai be6e //v helpa na search pi6i ansi i 6te vidi6.
Ili pak StrCopy

1. i:=StrPos(Strings.Text,"some text"); bi sle dwalo da byde
1. i:=StrPos("some text",Strings.Text); //interesnoto e sled towa kak sha poznaesh w koj red e...
2. kwo ne mu hareswate na s123:=copy(s,1,3);

------------------------------
I got a COMPILER, and I'm not afraid to use it!

Mда, за това не бях помислил как ще открия в кой ред се намира.
Освен да прилагам StrPos за всеки String от ТStrings поотделно!?

1. Ami moje i da ne mu trqbva reda, a samo da proveri dali go ima. A ako mu trqbva i red , bez cikal mai nema da mine. Interesno e vse pak , dali nqma funkciq koqto da go pravi tozi nomer - ot poziciq v Text kam nomer na red? Nqmam help v momenta i nemoga da proverq.

2. Ami nqkak si e mnogo kratko :))))))

Абе забравих и да уточня.
Всъщност съвпадението трябва да ми е винаги в началото на всеки от стринговете.
Ако това ще помогне повече!

Ami vij sega dokolkoto ti shvanah problema nai lesno 6te stane mai taka :


var i:integer;
substr:string;
sl:TStringList;
begin
//priemame 4e sl e sazdaden i popalnen
for i := 0 to sl -1 do
if substr = Copy(sl,1,length(substr)) then edi_kakvo_si;
//ili pak
if StrPos(substr,sl) = 1 then edi_kakvo_si;
end;

Благодаря за всички отговори. Получената информация беше много ценна за мен!

sled prochitaneto na pochti vs msg po tazi tema rechih i az da picha ...
1/ text e mnogo bavno property ... po dobre da se pravi tzikul ..
2/ na nekolko mesta vidiah da polzvate copy(source,desc,count) tova che raboti za 1 byte charset ama ako e 2 ?


tui che pravete for .... i tn :))))))))

TStrings ne poddurja WideChar, taka che vinagi e 1 byte