Sformatowany tekst

Witam wszystkich

Jak zwykle czegoś nie umiem zrobić, dlatego pytam się o to na forum. Czy ktoś może z Was wie dlaczego ten kodzik nie działa??

var
Source: TMemoryStream;
begin
Source:=TMemoryStream.Create;
Richedit1.Lines.SaveToStream(Source);
memo3.Lines.LoadFromStream(Source);
source.Free;
end;

Dzięki za odpowiedzi

ale w jakim sensie nie działa? nie chce się kompilować? - powiedz co podaje kompilator. Jest Access Vilation? - Jaki, czy pprostu nie działa?

ale w jakim sensie nie działa? nie chce się kompilować? - powiedz co podaje kompilator. Jest Access Vilation? - Jaki, czy pprostu nie działa?

wklep do Delphi i zobacz co się dzieje !

Kompilator nic nie mówi, dopiero w programie kodzik nie działa. po prostu w Memo po odczytaniu z MemoryStream nic nie ma

dziwne to jest, a jak sie bierze Source.SaveToFile a potem LoadFromFile to działa, ale nie możesz tego zrobić normalnie przez AddStrings w Memo (memo3.Lines.Clear; memo3.Lines.AddStrings(Richedit1.Lines)) ?? bo tak nawet jak zadziała to zobacz co się wklei:

{\rtf1\ansi\deff0\deftab720{\fonttbl{\f0\fnil MS Sans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fcharset1 MS Sans Serif;}}
{\colortbl\red0\green0\blue0;}
\deflang1045\pard\plain\f2\fs16 RichEdit1
\par
\par }

// no to chyba normalne, przecież tak wygląda rtf - ŁF
// normalne, jak ktoś chce żeby się wkleił rtf :)
// no a nie? Richedit1.Lines.SaveToStream(Source); memo3.Lines.LoadFromStream(Source); - jak w mordę strzelił kopiowanie rtfa do memo - ŁF

Właśnie chce żeby się tak wyświetliło, ale nie chce nawet tym twoim sposobem Adamo.

Powinno dzialac:

  Source:=TMemoryStream.Create;
  Richedit1.Lines.SaveToStream(Source);
  Source.Seek(0, 0);
  memo1.Lines.LoadFromStream(Source);
  source.Free;

Dzięki Maciek - teraz wszystko już działa [hurra]