Вниз
Скачать: CL | DM;

вопрос по работе со строками   Найти похожие ветки 

← →
~ShamaN~ ©   (2004-09-09 11:39) [0]

Подскажите пожалуйста, есть ли в Delphi функция, которая в строку s1 помещала бы значение подстроки строки s до определённого символа?


← →
MU ©   (2004-09-09 11:40) [1]

copy
leftstr


← →
~Shaman~ ©   (2004-09-09 11:42) [2]

а пример можно ?


← →
megabyte ©   (2004-09-09 16:14) [3]

function Copy(S; Index, Count: Integer): string;
s - cтрока.
index - c какого символа копировать.
count - сколько символов.

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


← →
kukuikar ©   (2004-09-09 16:18) [4]

в строках нумерация с 1


← →
Erik1   (2004-09-09 17:43) [5]

Рискну предположить, что производится замена символов, тогда:
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 надо задавать с еденицы.


← →
GEN++ ©   (2004-09-09 21:23) [6]

Может быть "перед определенным символом"
 Тогда  insert(SubStr,Str,index);


← →
~Shaman~ ©   (2004-09-10 11:09) [7]

Есть куча строк одинакового формата с разделителями слов - пробел. Надо из каждой строки в переменные считать все слова, а позиция каждого слова заранее неизвестна.


← →
Fktrc ©   (2004-09-10 11:25) [8]

ExtractStrings


← →
Fktrc ©   (2004-09-10 11:33) [9]

Хм, сунулся в хелп D5, но описания ExtractStrings не нашел...
Тогда краткий примерчик:
var
  fStrings: TStringList;
begin
fStrings := TStringList.Create;
ExtractStrings ([" "], [], "Строка, в которой разделитель - пробел", fStrings);

После выполнения этого кода в fStrings будет список слов, которые в исходной строке шли через пробел.

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


← →
~Shaman~ ©   (2004-09-10 11:36) [10]

Fktrc, спасибо за помощь!



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.022 c
1-1094748536
Anonimus
2004-09-09 20:48
2004.09.26
Требуется делать зип архивы


1-1094737072
kukuikar
2004-09-09 17:37
2004.09.26
Старый добрый DOS... Отсюда вопрос.


1-1094707455
user1
2004-09-09 09:24
2004.09.26
Процедура открытия модального окна


14-1094785169
YurikGL
2004-09-10 06:59
2004.09.26
Exchange 2000 и русские логины


1-1094625734
kwSergio
2004-09-08 10:42
2004.09.26
совместимость Delphi и Builder




   Наверх