---

Vil du hjælpe mig med, at få Link fra MyBas til Memo til at virke.

Det liner meget brevfletning!

Døren åbner sig meget forsigtigt ind til børneværelses.
Ind kommer <First Name> og <Mother Name> for at sige godnat.

Men det lykkes ikke rigtig for mig.

Beskrivelse af forløbet.
1: Først skrives der navne m.v. ind i MyBase.
2: Så Lodes historie ind i Form7.Memo1.Lines.Add(InString);
3: Og ønsker med en knap, at de data'er der i databasen erstatter '<nickname>'

Min procedure for indsætning:

procedure TForm7.Button2Click(Sender: TObject);
var
Field1 : String;
Field2 : String;
Field3 : String;
Field4 : String;
begin
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('First Name').AsString;
Field2 := Form6.BogDb.FieldByName('Last Name').AsString;
Field3 := Form6.BogDb.FieldByName('Nick Name').AsString;
Field4 := Form6.BogDb.FieldByName('Mother Name').AsString;

stringreplace(form7.memo1.lines.text, '<First Name>', Field1, [rfReplaceall]);

stringreplace(form7.memo1.lines.text, '<mothers name>', Field2, [rfReplaceall]);

Det lykkes ikke rigtig for mig, at få skifte teksten ud på
Form7.Memo1? Hvor historien er load'et ind.
Vil du være behjælpelig tilrettelse af proceduren?

Form6.BogDb.Next;
end;
end;

Håber meget jeg forklare mig godt nok!

På forhånden rigtige mange tak.

Monie jacobsen
E-mail: energy@sunwind.dk

---

Hej Monie,
Jep, du ret, den er gal, jeg havde ikke tjekket stringreplace selv.
Sådan skal det se ud for et virke:

procedure TForm7.Button2Click(Sender: TObject);
var
sourcetext : string;
Field1 : String;
Field2 : String;
Field3 : String;
Field4 : String;
begin
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('First Name').AsString;
Field2 := Form6.BogDb.FieldByName('Last Name').AsString;
Field3 := Form6.BogDb.FieldByName('Nick Name').AsString;
Field4 := Form6.BogDb.FieldByName('Mother Name').AsString;

sourcetext := stringreplace(form7.memo1.lines.text, '<First Name>', Field1,
[rfReplaceall]);

sourcetext := stringreplace(sourcetext, '<mothers name>', Field2,
[rfReplaceall]);
// Husk at være konsekvent med store og små bogstaver.

Form6.BogDb.Next;
end;
form7.memo1.lines.text := sourcetext;
end;

God fornøjelse

mvh Thor



"Monie" <monie@pc.dk> wrote in message
news:f45ecd4a.0312080320.20effccc@posting.google.com...
> Vil du hjælpe mig med, at få Link fra MyBas til Memo til at virke.
>
> Det liner meget brevfletning!
>
> Døren åbner sig meget forsigtigt ind til børneværelses.
> Ind kommer <First Name> og <Mother Name> for at sige godnat.
>
> Men det lykkes ikke rigtig for mig.
>
> Beskrivelse af forløbet.
> 1: Først skrives der navne m.v. ind i MyBase.
> 2: Så Lodes historie ind i Form7.Memo1.Lines.Add(InString);
> 3: Og ønsker med en knap, at de data'er der i databasen erstatter
'<nickname>'
>
> Min procedure for indsætning:
>
> procedure TForm7.Button2Click(Sender: TObject);
> var
> Field1 : String;
> Field2 : String;
> Field3 : String;
> Field4 : String;
> begin
> 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('First Name').AsString;
> Field2 := Form6.BogDb.FieldByName('Last Name').AsString;
> Field3 := Form6.BogDb.FieldByName('Nick Name').AsString;
> Field4 := Form6.BogDb.FieldByName('Mother Name').AsString;
>
> stringreplace(form7.memo1.lines.text, '<First Name>', Field1,
[rfReplaceall]);
>
> stringreplace(form7.memo1.lines.text, '<mothers name>', Field2,
[rfReplaceall]);
>
> Det lykkes ikke rigtig for mig, at få skifte teksten ud på
> Form7.Memo1? Hvor historien er load'et ind.
> Vil du være behjælpelig tilrettelse af proceduren?
>
> Form6.BogDb.Next;
> end;
> end;
>
> Håber meget jeg forklare mig godt nok!
>
> På forhånden rigtige mange tak.
>
> Monie jacobsen
> E-mail: energy@sunwind.dk