---

Hej Thor
Mange tak for dit forslag.

Jeg kan ikke besvar til et endlæg, derfor denne. Hved ikke havd der
galt.

Dit forslag kunne jeg ikke få til at virke!
Men i sidste øjeblik lykkes det, se nedstående procedure.
Jeg har et andet problem.
Benytter MyBase Database hvori jeg kan indlæse flere poster.
Hvordan får jeg post1 og post2 osv.? Får kun udlæst første post.
Jeg har aldrig arbejde med Database før, men vil gerne lære dette.

Disse 3 skifter godt nok post, men skifter ikke ved næste post,
kan ikke få disse nye poster til at skifte teksten ud i Memo1.
Har du et forslag til en løsning?
..
procedure TForm6.Frste1Click(Sender: TObject);
begin
BogDb.First;
end;

procedure TForm6.Frem1Click(Sender: TObject);
begin
if not BogDb.Eof then
BogDb.Next
else
BogDb.First;
end;

procedure TForm6.Tilbage1Click(Sender: TObject);
begin
if not BogDb.Bof then
BogDb.Prior
else
BogDb.Last;
end;

procedure TForm7.Button2Click(Sender: TObject);
var
//FinalText : String;
Field1 : String;
Field2 : String;
Field3 : String;
Field4 : String;
Field5 : String;
begin
Form6.DBNavigator1.Update;
Form6.BogDb.First; // Gå til den første post.
while not Form6.BogDb.EOF do // loope indtil der ikke er flere
begin
Field1 := Form6.BogDb.FieldByName('FirstName').AsString;
Field2 := Form6.BogDb.FieldByName('LastName').AsString;
Field3 := Form6.BogDb.FieldByName('NickName').AsString;
Field4 := Form6.BogDb.FieldByName('MotherName').AsString;
Field5 := Form6.BogDb.FieldByName('FatherName').AsString;

//FinalText := Format(Form7.Memo1.Text, [Field1, Field2, Field3,
Field4]);
//Form7.Memo1.Text:=(Field1 + ' '+ Field2 + Field3 + Field4);

Memo1.Text:=Stringreplace(Form7.Memo1.lines.text,'<FirstName>',Field1,[rfReplaceall]);
Memo1.Text:=Stringreplace(Form7.Memo1.lines.text,'<LastName>',Field2,[rfReplaceall]);
Memo1.Text:=Stringreplace(Form7.Memo1.lines.text,'<NickName>',Field3,[rfReplaceall]);
Memo1.Text:=Stringreplace(Form7.Memo1.lines.text,'<MotherName>',Field4,[rfReplaceall]);
Memo1.Text:=Stringreplace(Form7.Memo1.lines.text,'<FatherName>',Field5,[rfReplaceall]);

// Send FinalText til en rapport f.eks. Eller direkte til
printeren

Form6.BogDb.Next;
end;
end;

På forhånden mange tak.
Mvh
Monie Jacobsen
E-mail: energy@sunwind.dk