Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

String


Dark ©   (2008-03-13 20:31:00) 

ПОдскажите пожалуйста функцию, которая считывает несколько символов из переменной типа string и другую, которая подсчитывает их кол-во. Ну например есть:

const
name='abcdef';
var
tmp:string;
begin
tmp:=Функция(name, 2,4) //ПО идее должно считать сиволы со 2го по 4ый.
end

и переменная tmp получает значение 'bc' или 'cd', это зависит от того, как считывает.

Ну и подсчитывание символов:

const
tmp='sfhjg';
var
i:integer;
begin
i:=фунция(tmp);
end
И переменная i принимает значение 5.

Вобщем как можно такое реализовать???


{RASkov}   (2008-03-14 21:14:00) [1]

> [10] Dark ©   (14.03.08 21:05)

Ну что врешь-то? И не искал ведь :(
http://www.delphimaster.ru/cgi-bin/forum.pl?n=18&id=1204965397

> Как можно такое реализовать?

примерно так
читаешь текстовый файл пока не кончится: F: TextFile, while, not EOF, do
ну и по ходу чтения, т.е. после do- разбирай строку при помощи функций, названия которых в [9] или по ссылки приведенной здесь, в свою очередь находящихся в RxLib например.


Dark   (2008-03-14 21:05:00) [2]

Ненашел...


{RASkov}   (2008-03-14 20:33:00) [3]

> [8] Dark ©   (14.03.08 19:51)

поищи здесь вокруг себя на форуме ветку про "выдергивание слов" или что-то в этом роде, вот прямо на днях была... там и тебе ответ наверняка есть...
Можешь поиск по WordCount, ExtractWord или WordDelims - это ключевые слова...


Dark   (2008-03-14 19:51:00) [4]

Ещё вопрос появился: считываю из файла значения. Мне нужно считывать от запятой до запятой. В строке несколько запятых. Как можно такое реализовать? Считывать посимвольно..считывать строку, а потом копировать из неё..вобщем помогите!


ЦУП   (2008-03-13 21:24:00) [5]

http://www.delphimaster.ru/cgi-bin/forum.pl?n=18&search=FindClose


nstur   (2008-03-13 21:18:00) [6]

Осмелюсь предложить готовый компонент
http://www.nstur.narod.ru/Delphi/NsComponent/NsFindFile.html

Там описания. Есть исходники.


Efir   (2008-03-13 21:12:00) [7]

В этом помогут функции:
FindFirst
FindNext
FindEnd


Dark   (2008-03-13 21:02:00) [8]

Спасибо огромное! Ещё вопросик: есть ф-ция FileSearch(string), она ищет 1 файл. А как сделать, чтобы она..ну хотя бы составляла список найденных файлов? Как поиск в виндоузе. а список можно в мемо пихать


Efir   (2008-03-13 20:43:00) [9]

Такой функцией является Copy.
tmp:=Copy(name, 2, 4);
i:=Length(tmp);


NieL   (2008-03-13 20:41:00) [10]


> ПОдскажите пожалуйста функцию, которая считывает несколько
> символов из переменной типа string и другую, которая подсчитывает
> их кол-во. Ну например есть:
>
> const
> name='abcdef';
> var
> tmp:string;
> begin
> tmp:=Функция(name, 2,4) //ПО идее должно считать сиволы
> со 2го по 4ый.
> end
>
> и переменная tmp получает значение 'bc' или 'cd', это зависит
> от того, как считывает.
>
Copy(строка, позиция, длина);
> Ну и подсчитывание символов:
>
> const
> tmp='sfhjg';
> var
> i:integer;
> begin
> i:=фунция(tmp);
> end
> И переменная i принимает значение 5.
>
> Вобщем как можно такое реализовать???
> <Цитат


> Ну и подсчитывание символов:
>
> const
> tmp='sfhjg';
> var
> i:integer;
> begin
> i:=фунция(tmp);
> end
> И переменная i принимает значение 5.
>
> Вобщем как можно такое реализовать???
> <Ц

Length(строка): Integer; Length(tmp)


{RASkov}   (2008-03-13 20:40:00) [11]

А ведь где-то есть в хэлпе про Copy() и Length() ;)


Наверх

Титульная страница Поиск, карта сайта Написать письмо