Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

вопрос по работе со строками [D7, WinXP]

~ShamaN~ © (2004-09-09 11:39:00)
Подскажите пожалуйста, есть ли в Delphi функция, которая в строку s1 помещала бы значение подстроки строки s до определённого символа?

~Shaman~ (2004-09-10 11:36:00) [1]
Fktrc, спасибо за помощь!

Fktrc (2004-09-10 11:33:00) [2]
Хм, сунулся в хелп D5, но описания ExtractStrings не нашел...
Тогда краткий примерчик:
var fStrings: TStringList; begin fStrings := TStringList.Create; ExtractStrings ([' '], [], 'Строка, в которой разделитель - пробел', fStrings);
После выполнения этого кода в fStrings будет список слов, которые в исходной строке шли через пробел.

Прототип ExtractStrings:
function ExtractStrings(Separators, WhiteSpace: TSysCharSet; Content: PChar; Strings: TStrings): Integer;

Fktrc (2004-09-10 11:25:00) [3]
ExtractStrings

~Shaman~ (2004-09-10 11:09:00) [4]
Есть куча строк одинакового формата с разделителями слов - пробел. Надо из каждой строки в переменные считать все слова, а позиция каждого слова заранее неизвестна.

GEN++ (2004-09-09 21:23:00) [5]
Может быть "перед определенным символом"
Тогда insert(SubStr,Str,index);

Erik1 (2004-09-09 17:43:00) [6]
Рискну предположить, что производится замена символов, тогда:
procedure Replace(Var Value, Buf: String; Start: Integer);
Var
i: Integer;
begin
for i := Start to Length(Value) do
Value[i] := Buf[i-Start];
end;
Разумеется необработанны ошибки и Start надо задавать с еденицы.

kukuikar (2004-09-09 16:18:00) [7]
в строках нумерация с 1

megabyte (2004-09-09 16:14:00) [8]
function Copy(S; Index, Count: Integer): string;
s - cтрока.
index - c какого символа копировать.
count - сколько символов.

s := ShamaN
s1 := Copy(s; 0, 4) = Sham
Нумерация вроде с "0" начинается.

~Shaman~ (2004-09-09 11:42:00) [9]
а пример можно ?

MU (2004-09-09 11:40:00) [10]
copy
leftstr

Наверх

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