Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Вставить кусок в конец строки, Как вставить в заданную позицию в строке 
:(
    Опции темы
Canada
  Дата 22.7.2011, 07:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 153
Регистрация: 9.2.2009

Репутация: нет
Всего: нет



Здравствуйте, поиск читал и нашел почти то, что мне нужно, но я не понимаю этого

Цитата

Код

SendMessage(Memo1.Handle, EM_SETSEL, Memo1.SelStart, Memo1.SelStart);
SendMessage(Memo1.Handle, EM_REPLACESEL, 0, Longint(PChar(Line)));


Line - это строка текста который нужно вставить. 


В общем, есть s.String[i] и в конец этой строки надо вставить s1, а как я не могу понять. Помогите, пожалуйста. 

Заранее благодарен! smile 
PM MAIL   Вверх
14SatanA88
Дата 22.7.2011, 08:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 393
Регистрация: 13.5.2010

Репутация: нет
Всего: 5



Функции работы со строками

Код

AdjustLinesBreaks(   const S: string): string    Возвращает строку, содержащую S с преобразованными символами конца строк (CR, LF, LF/CR - это используется в некоторых системах) в пары CR/LF.
AnsiCompareStr(const S1, S2:           string): Integer    Сравнивает две строки ANSI S1 и S2 с учетом регистра. Возвращает значение < 0, если S1 < S2, 0, если S1 = S2, и > 0, если S1 > S2.
AnsiCompareText(const S1,       S2: string): Integer    Сравнивает две строки ANSI S1 и S2 без учета регистра. Возвращает значение < 0, если S1 < S2, 0, если S1 = S2, и > 0, если S1 > S2.
AnsiLowerCase(const S:            string): string    Возвращает строку ANSI S, преобразованную к нижнему регистру. Применима для русских текстов.
AnsiUpperCase(const S:            string): string    Возвращает строку S, преобразованную к верхнему регистру. Применима для русских текстов.
CompareStr(const S1, S2:           string): Integer    Сравнивает две строки S1 и S2 с учетом регистра. Возвращает значение < 0, если S1 < S2, 0, если S1 = S2, и > 0, если S1 > S2.
CompareText(const S1, S2:           string): Integer    Сравнивает две строки S1 и S2 без учета регистра. Возвращает значение < 0, если S1 < S2, 0, если S1 = S2, и > 0, если S1 > S2.
Concat(s1 [, s2,..., sn]:            string): string    Возвращает строку, склеенную из строк s1, ..., sn. Идентична операции "+" для строк.
Copy(S: string; Index,    Count: Integer): string    Возвращает подстроку строки S, начинающуюся с S[Index] и содержащую до Count символов.
CurrToStr(Value: Currency):                     string    Преобразует монетарное значение Value в строку.
Delete(var S: string;        Index,Count: Integer)    Удаляет из S подстроку, начинающуюся с S[Index] и содержащую до Count символов.
DisposeStr(P: PString)    Удаляет строку, ранее размещенную динамически процедурой NewStr.
FloatToStrF(Value: Extended;       Format: TFloatFormat;        Precision, Digits:           Integer): string    Преобразует Value в строку, используя формат Format с точностью Precision и числом цифр Digits. Возможные значения Format: ffGeneral - формат g, ffExponent - формат e, ffFixed - формат f, ffNumber     - формат n, ffCurrency - формат m (обозначения форматов см. в разделе TFloatFormat).
FloatToStr(Value: Extended):                     string    Преобразует Value в строку в формате ffGeneral с точностью 15 цифр.
FormatFloat(const Format:   string; Value: Extended):                     string    Преобразует Value в строку, используя строку форматирования Format (см. Строка описания формата).
Insert(Source: string;       var S: string;       Index: Integer)    Вставляет строку Source в S, начиная с S[index].
IntToHex(Value: Integer;         Digits: Integer):                     string    Возвращает строку, содержащую шестнадцатеричное представление Value с числом возвращаемых цифр Digits.
IntToStr(Value: Integer):                     string    Возвращает строку, содержащую преобразованное целое значение Value.
IsValidIdent(const Ident:             string):                    Boolean    Проверяет, является ли Ident допустимым идентификатором Object Pascal
Length(S: string): Integer    Возвращает число символов в S.
LowerCase(const S: string):                      string    Возвращает строку S, преобразованную к нижнему регистру. Не применима для русских текстов (см. AnsiLowerCase).
NewStr(const S: string):                     PString    Динамически размещает строку S, которая может быть в дальнейшем удалена процедурой DisposeStr. Сохраняется только для обратной совместимости.
Pos(Substr: string;     S: string): Integer    Возвращает позицию (индекс) первого вхождения Substr в S. Если Substr нет в S, возвращается 0.
Str(X [: Width [: Decimals                  ]]; var S)    Преобразует целое или действительное значение X в строку S. Не обязательные параметры: Width - ширина поля, Decimals - число цифр.
StrToCurr(const S: string):                    Currency    Преобразует строку S в монетарное число.
StrToFloat(const S: string):                    Extended    Преобразует строку S в действительное число.
StrToInt(const S: string):                     Integer    Преобразует строку S в целое число.
StrToIntDef(const S: string;         Default: Integer):                     Integer    Преобразует строку S в целое число. Если строка не является допустимым целым, возвращается значение по умолчанию Default.
Trim(const S: string):                     string    Удаляет из строки S начальные и завершающие пробелы и управляющие символы.
TrimLeft(const S: string):                     string    Удаляет из строки S начальные пробелы и управляющие символы.
TrimRight(const S: string):                     string    Удаляет из строки S завершающие пробелы и управляющие символы.
UpperCase(const S: string): string    Возвращает строку S, преобразованную к верхнему регистру. Не применима для русских текстов (см. AnsiUpperCase).
Val(S; var V;     var Code: Integer)    Преобразует строку S в целое число Code.


тебе, насколько я понял, нужно соединить строки?
так это можно просто плюсом сделать.

var ss: string;
ss := s1+s2;


или 

ss := Concat(s1,s2)

если тебе нужно вставить строку не в конец, а в некоторую позицию, используй функцию Insert

Код

s1:='string1';
s2:='string2';
Insert(s1,s2,4);


В этом примере в переменную s2 будет всавлена переменная s1, начиная с 4-го символа.

Это сообщение отредактировал(а) 14SatanA88 - 22.7.2011, 08:27
PM MAIL ICQ   Вверх
superVad
Дата 22.7.2011, 09:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 735
Регистрация: 6.4.2006
Где: Черкассы, Украина

Репутация: 7
Всего: 15



Код

s.String[i] := s.String[i] + s1;

???
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »


 




[ Время генерации скрипта: 0.0682 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.