TStringStream в String

[Lokos]

Здравствуйте.
Необходимо провести сравнение TStringStream с String. Вышел из проблемы так

var
   s:TStringStream;
   s2:TstringStream;
begin
   s:=TStringStream.Create;
   s2:=TStringStream.Create;
   try
      s2.WriteString('date');
      if s =s2 then
         begin
           .................
         end;
   finally
      s.Free;
      s2.Free;
   end;

можно ли как то сделать это менее громоздко

[ex.cluz]

можно ли как то сделать это менее громоздко

Можно:

var
   s:TStringStream; s2:TstringStream;
begin
   s:=TStringStream.Create; s2:=TStringStream.Create;
   try
      s2.WriteString('date');
      if s =s2 then begin ................. end;
   finally
      s.Free; s2.Free;
   end;

Ну что, так лучше?

Скажите, ну куда вам короче? Вы же все правильно сделали.

[Sibedir]

Блин, чет я уже видать к утру туплю.

сравнение TStringStream с String

Может вы имели в виду вот это:

var
  s: String;
  SS: TstringStream;
begin
   s := 'date';
   SS := TStringStream.Create ('date');
   try
      if s = SS.ReadString (ss.Size) then
         begin
           ShowMessage ('ЛАДЫ');
         end;
   finally
      SS.Free;
   end;
end;

Ибо, во-первых, вы пытаетесь сравнить TStringStream с TStringStream.
Во-вторых, TStringStream.Create у меня потребовал входной параметр.
Ну а в-третьих, вы сравниваете s2 с неинициализированным s.

[Lokos]

Сообщение от ex.cluz

Можно:

var
   s:TStringStream; s2:TstringStream;
begin
   s:=TStringStream.Create; s2:=TStringStream.Create;
   try
      s2.WriteString('date');
      if s =s2 then begin ................. end;
   finally
      s.Free; s2.Free;
   end;

Ну что, так лучше?

Скажите, ну куда вам короче? Вы же все правильно сделали.

Ну я думал возможно какое то преобразование есть.
И почему то сравнение не происходит(

[Sibedir]

Какое преобразование? Преобразование чего?
Вам что с чем сравнить надо?

[Lokos]

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

Какое преобразование? Преобразование чего?
Вам что с чем сравнить надо?

Преобразование TStringStream в String. Что то типо IntToStr или DateToStr и т.д.
Ну сравнение у меня по какой то причине не происходит вот полный код

procedure TForm1.ServerExecute(AContext: TIdContext);
var
   s:TStringStream;
   s2:String;
begin
   s:=TStringStream.Create;
   try
      AContext.Connection.IOHandler.ReadStream(s);
      s.Position:=0;
      memo1.lines.LoadFromStream(s);
      s2:=('date');
      if s2=s.ReadString(s.Size) then
         begin
            s.Clear;
            s.WriteString('Дата на сервере'+DateToStr(Date));
            s.Position:=0;
            AContext.Connection.IOHandler.Write(s,s.Size,true);
         end;
   finally
      s.Free;
   end;

еще есть вопросик данный метод

memo1.lines.loadfromsteam(s);

обнуляет все memo и добавляет строчку этого можно как то избежать

[Lokos]

Вопрос решен. Изменил код вот так

procedure TForm1.ServerExecute(AContext: TIdContext);
var
   s:TStringStream;
   s2:String;
begin
   s:=TStringStream.Create;
   try
      AContext.Connection.IOHandler.ReadStream(s);
      s.Position:=0;
      memo1.lines.LoadFromStream(s);
      s2:=('date');
      s.Position:=0;
      if s2=s.ReadString(s.Size) then
         begin
            s.Clear;
            s.WriteString('Дата на сервере'+DateToStr(Date));
            s.Position:=0;
            AContext.Connection.IOHandler.Write(s,s.Size,true);
         end;
   finally
      s.Free;
   end;

[Sibedir]

О. ну здрасте. Залез в TStringStream и о чудо. Свойство там есть такое - DataString называется. Через него и можно читать всю строку целиком.

if 'date' = s.DataString then

Кстати, у вас наверное D2010. Чет я смотрю TStringStream у нас малость поразному работает.

обнуляет все memo и добавляет строчку этого можно как то избежать

Избежать чего: обнуления или добавления?
Может это поможет

memo1.lines.LoadFromStream(s);

Заменить на

memo1.lines.Add(s.DataString);

P.S: Еще одна такая фраза "для телепатов" и я вам больше не помошник.

[Lokos]

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

О. ну здрасте. Залез в TStringStream и о чудо. Свойство там есть такое - DataString называется. Через него и можно читать всю строку целиком.

if 'date' = s.DataString then

Кстати, у вас наверное D2010. Чет я смотрю TStringStream у нас малость поразному работает.


Избежать чего: обнуления или добавления?
Может это поможет

memo1.lines.LoadFromStream(s);

Заменить на

memo1.lines.Add(s.DataString);

P.S: Еще одна такая фраза "для телепатов" и я вам больше не помошник.

Извиняюсь за не точность вопроса.

memo1.lines.Add(s.DataString);

то что нужно большее спс