[shotkill]

можно ли добавлять в переменную типа string текст или символ, но так чтобы хронящийся там не удалился. Если да то подскажите пожайлуста как ?? уже всё перепробывал....

[angvelem]

Мда.

Код:

var
  St : String;
begin
  St := 'bla';
  St := St + '-bla-bla';

[Ildar-tsr]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  s: string
begin
  s:= 'Привет!';
  showmessage(s);
  s:= s + ' Как дела?';
  ShowMessage(s);
end;

[Ildar-tsr]

Сообщение от angvelem

Мда.

Я вот понять не могу, он правда это имеет в виду?

[shotkill]

оооо да....я действительно СТУПИЛ !!!!! спасибо за помощь )))
м ещё один вопрос. Тип string может содержать символ ' -одну кавычку ??

[robt]

Сообщение от shotkill

оооо да....я действительно СТУПИЛ !!!!! спасибо за помощь )))
м ещё один вопрос. Тип string может содержать символ ' -одну кавычку ??

он может содержать все что угодно

[shotkill]

почему-то когда я кавычку заключаю в кавычки ''' выдёт ошибку

[angvelem]

Код:

var
  St : String;
begin
  St := 'Я содержу кавычки '' оп-ля';

[shotkill]

ооо класс )))Спасибо всем ОГромное )))))

[shotkill]

все равно не выходит

Код:

 procedure TMainForm.Load;
var
  fileName,prob,putk: string;
begin
   FileName:='C:\Documents and Settings\ADMIN\Рабочий стол\Test\sample2.stx';
      Data.Load( fileName ); // Получаем данные
      LoadData; // Загружаем данные в форму
      prob:= sedit1.Text;
      putk:='''';
      putk:= prob+ putk;
      putk:= putk+'''';
      sedit2.Text := putk;
    end;

[color=red] Bargest: [/code] не забываем про теги оформления кода!
в конце выводит только " и все а содержание переменной нет ((

[angvelem]

а так:

Код:

  prob := sedit1.Text;
  putk := ''';
  putk := prob + putk;
  putk := putk + ''';
  sedit2.Text := putk;

[shotkill]

[DCC Error] MainUnit.pas(125): E2052 Unterminated string

не хочет он кавычки в кавычках воспринемать ((

[YVitaliy]

Сообщение от shotkill

все равно не выходит

А в sEdit1 текст какой-то присутствует?
да и вернее делать так:

Код:

prob:= sedit1.Text;
 putk:='''';
 putk:= putk + prob;
 putk:= putk+'''';
 sedit2.Text := putk;

Тогда текст в кавычках будет.

[angvelem]

Сообщение от YVitaliy

да и вернее делать так:

Угу, потерял кавычку.

[shotkill]

только кавычки птображаются...((а текста из переменной нету (((