Sammenligning af tekst

Løsning:
Problemet med RichEdit er at teksten er i RichFormat, men når man spørger på teksten, får man bare teksten i plain text. Jeg har ikke så meget erfaring med RichEdit, så jeg kunne ikke lige finde en funtion der kan give mig de rå rich edit data, så derfor kopierer jeg indholdet over i en stream inden jeg sammenligner med indholdet i filen.
PS: Koden er ikke testet 100%, så jeg kan ikke garentere at det virker.

procedure TForm1.Button1Click(Sender: TObject);
var
  SL: TStringList;
  Stream: TStringStream;
begin
  Stream := TStringStream.Create('');
  RichEdit1.Lines.SaveToStream(Stream);

  SL := TStringList.Create;
  SL.LoadFromFile('c:\\temp\\blablabla.txt');
  if Trim(SL.Text) = Trim(Stream.DataString) then
  ShowMessage('De er ens') else ShowMessage('De er ikke ens');

  Stream.Free;
  SL.Free;
end;

Btw. hvorfor vil du tjekke om indholdet af RichEdit er ens med indholdet af en fil? Kan du ikke nøjes med at bruge Modified propertyen i RichEdit til at finde ud af om dokumentet har ændret sig?



Kim Jensen aka BOSH
http://www.hulubulu.dk

Løsning:
Problemet med RichEdit er at teksten er i RichFormat, men når man spørger på teksten, får man bare teksten i plain text. Jeg har ikke så meget erfaring med RichEdit, så jeg kunne ikke lige finde en funtion der kan give mig de rå rich edit data, så derfor kopierer jeg indholdet over i en stream inden jeg sammenligner med indholdet i filen.
PS: Koden er ikke testet 100%, så jeg kan ikke garentere at det virker.

Kode 

procedure TForm1.Button1Click(Sender: TObject);
var
  SL: TStringList;
  Stream: TStringStream;
begin
  Stream := TStringStream.Create('');
  RichEdit1.Lines.SaveToStream(Stream);

  SL := TStringList.Create;
  SL.LoadFromFile('c:\\temp\\blablabla.txt');
  if Trim(SL.Text) = Trim(Stream.DataString) then
  ShowMessage('De er ens') else ShowMessage('De er ikke ens');

  Stream.Free;
  SL.Free;
end;

Btw. hvorfor vil du tjekke om indholdet af RichEdit er ens med indholdet af en fil? Kan du ikke nøjes med at bruge Modified propertyen i RichEdit til at finde ud af om dokumentet har ændret sig?



Kim Jensen aka BOSH
http://www.hulubulu.dk

Haha BOSH hvordan fanden tjekker man efter det. Altså jeg har ikke så meget forstand på Delphi. Vi har om det her i Datalogi på vores gym og vores lærer hjælper kun alle pigerne, så jeg bliver jo nød til at hjælpe mig selv og finde på noget.

mxs @ http://poet.frac.dk
Slamkodning for fred

Sådan bruges modfied:

Når du loader et dokument med RichEdit1.Lines.LoadFromFile() sætter du bag efter RichEdit1.Modified := false;

Når teksten så bliver ændret, bliver RichEdit1.Modified automatisk sat til true.

Du kan derved finde ud af om dokumentet har ændret sig ved at tjekke om RichEdit1.Modified er true eller false.

Husk at sætte RichEdit1.Modified til false efter du har gemt.


Håber det hjalp :-)

Kim Jensen aka BOSH
http://www.hulubulu.dk

Sådan bruges modfied:

Når du loader et dokument med RichEdit1.Lines.LoadFromFile() sætter du bag efter RichEdit1.Modified := false;

Når teksten så bliver ændret, bliver RichEdit1.Modified automatisk sat til true.

Du kan derved finde ud af om dokumentet har ændret sig ved at tjekke om RichEdit1.Modified er true eller false.

Husk at sætte RichEdit1.Modified til false efter du har gemt.


Håber det hjalp :-)

Kim Jensen aka BOSH
http://www.hulubulu.dk

Hold da hel kæft du har lige trukket tænderne ud på mig Du får sgu points
mxs @ http://poet.frac.dk
Slamkodning for fred