Hent og erstat database fletter fra et RichEdit dokument

Nu har jeg ikke rodet så meget med richedit men kan man ikke lave en simpel for next på alle linier og så bruge pos til at finde <# med?

f.eks.: (utestet)

var
i,Start,Slut : integer;
Temp,Field : string;
begin
for i:=0 to RichEdit.Lines.Count-1 do
begin
  Start:=pos('<#',RichEdit.Lines[i]);
  if Start>0 then
  begin
  Temp:=RichEdit.Lines[i];
  Slut:=posEx('>',Temp,Start);
  Field:=copy(Temp,Start+2,Slut-Start-3);
  Delete(Temp,Start,Slut-Start);
  Insert(Temp,Tabel.FieldByName[Field].AsString,Start);
  RichEdit.Lines[i]:=Temp;
  end;
end;
end;

Hej Kroning.

Jeg får flg. problemmer med dit kode forslag.

1. Den kan ikke håndtere flere datafelter i en linie.
2. En stor fordel ved at bruge StringField, er at felterne kan være formateret på forhånd.
3. Jeg arbejder med flere forskellige databaser.


Men du er helt sikker på rette spor.


Hilsen

Finn

Nå ja, jeg havde ikke lige tænkt på formateringen i en richedit.

Men virker det så ikke hvis du skriver:
Seltext:=DinDB.FieldByName[S].AsString;

hej

prøv følgende

  if pos('#navn#',self.RichEdit1.Text) <> 0 then
    self.RichEdit1.Text := stringreplace(self.RichEdit1.Text,'#navn#','Svend rik',[rfReplaceAll]);

skrevet med database felter kan koden se således ud

  if pos('#navn#',self.RichEdit1.Text) <> 0 then
    self.RichEdit1.Text := stringreplace(self.RichEdit1.Text,'#navn#',self.Table1.FieldByName('NAME').AsString,[rfReplaceAll]);


mv
jhc

Hej

Det er også en måde at gøre det på, men jeg skla arbejde med mange forskellige dokumenter og databaser, så min kode er blevet som følg. den kan sikkert skrives bedre.

procedure TPrintFrm.ConvertText;
var FoundAt, FoundTo, size, Dot: Integer;
    Buffer: Pchar;
    S,X,Y: String;
begin
    FoundAt := 0;
    FoundTo := 0;
    with RichEdit1 do
    begin
      while FoundTo < Length(Text) do begin
        FoundAt := FindText('<#',FoundAt,Length(Text),[]);
        if FoundAt <> -1 then
        begin
          SetFocus;
          SelStart := FoundAt;
          FoundTo := FindText('>',FoundAt,Length(Text),[]);
          SelLength := (FoundTo+1) - FoundAt;
          Size := SelLength;
          Inc(Size);
          GetMem(Buffer, Size);
          GetSelTextBuf(Buffer,Size);
          S := StrPas(Buffer);
          Dot := Pos('.',S);
          Y := Copy(S,3,Dot-3);
          X := Copy(S,(Dot+1),(Length(S)-Dot-1));
          If Y = 'Kunde' then SelText := FieldConv(Kunde.FieldByName(X).AsString,            Kunde.FieldByName(X).DataType);
          If Y = 'Bdplads' then SelText := FieldConv(Bdplads.FieldByName(X).Value, Bdplads.FieldByName(X).DataType);
          If Y = 'Bdtype' then SelText := FieldConv(Bdtype.FieldByName(X).AsString, Bdtype.FieldByName(X).DataType);
          If Y = 'Bdanm' then SelText := FieldConv(Bdanm.FieldByName(X).AsString, Bdanm.FieldByName(X).DataType);
          If Y = 'Salgsliste' then SelText := FieldConv(Salgsliste.FieldByName(X).AsString, Salgsliste.FieldByName(X).DataType);
          If Y = 'Venteliste' then SelText := FieldConv(Venteliste.FieldByName(X).AsString, Venteliste.FieldByName(X).DataType);
        end
        else begin
          exit;

        end;

      end;
    end;
end;

hej

nu var det bare for at give dig et eksempel på hvordan det kan gøres.

I de programmer hvor vi bruger breve og formularer bruger vi WPTools - se eksempelvis på www.wptools.com

lukker