---

I procedure replayClick får jeg efter indskrivning af FirstName og LastName
kun i RichEdit1 udlæst, den sidste StringReplace.

//Her indlæses txt-filen:

procedure TForm1.LMDFileOpenEdit1Click(Sender: TObject);
Var
filnavn : STRING;
begin
begin
Memo1.Clear;
Memo1.Lines.LoadFromFile(LMDFileOpenEdit1.Filename);
filnavn := LMDFileOpenEdit1.Filename;
end;
end;

//Her indskrives FirstName:

procedure TForm1.LMDButton3Click(Sender: TObject);
begin
FirstName := ArrangeText(IndskrivSaetning('Indskriv First Name:',Default));
end;

//Her indskrives LastName:

procedure TForm1.LMDButton2Click(Sender: TObject);
begin
LastName := ArrangeText(IndskrivSaetning('Indskriv Last Name:',Default));
end;


procedure TForm1.replayClick(Sender: TObject);
begin
soucetext:= StringReplace(Memo1.Lines.Text,'<FirstName>',FirstName, [rfReplaceAll, rfIgnoreCase]);
soucetext:= StringReplace(Memo1.Lines.Text,'<LastName>',LastName, [rfReplaceAll, rfIgnoreCase]);

RichEdit1.Text:=soucetext; // Får kun udlæst sidste StringReplace
end;

Hvordan får jeg den indlæses txt-file og de indskrevet navne vist i RichEdit1 ?

Med venlig hilsen
Monie Jacobsen

---

soucetext:= StringReplace(Memo1.Lines.Text,'<FirstName>',FirstName, [rfReplaceAll, rfIgnoreCase]);
soucetext:= StringReplace(Memo1.Lines.Text,'<LastName>',LastName, [rfReplaceAll, rfIgnoreCase]);

sourcetext bliver overskrevet i linje 2 prøv noget i stil med:

For i := 0 to Memo1.lines.count -1 do begin
Memo1.lines[i] := StringReplace(Memo1.Lines[i],'<FirstName>',FirstName, [rfReplaceAll, rfIgnoreCase]);
Memo1.lines[i] := StringReplace(Memo1.Lines[i],'<LastName>',LastName, [rfReplaceAll, rfIgnoreCase]);
RichEdit1.Lines.Add(Memo1.lines[i]);
end;

Forklaring:
Hver linje i Memo1 gennemløbes med udskiftning af variabler, herefter tilføjes linjen i RichEdit

Jeg er ikke helt sikker på overførslen til RichEdit.

---

Rigtig mange Tak for svaret jrossing.
Med venlig hilsen
Monie Jacobsen

                        

---

Hvad er der galt her?

Jeg skal kører proceduren Replay 2 gange for at få Nick Name ændret, de andre ændre sig ved første gennemkørsel.

procedure TForm1.replayClick(Sender: TObject);
Var
i: Integer;
begin
For i := 0 to Memo1.lines.count -1 do begin
Memo1.lines[i] := StringReplace(Memo1.Lines[i],'<First Name>',FirstName, [rfReplaceAll, rfIgnoreCase]);
Memo1.lines[i] := StringReplace(Memo1.Lines[i],'<Last Name>',LastName, [rfReplaceAll, rfIgnoreCase]);
Memo1.lines[i] := StringReplace(Memo1.Lines[i],'<Nick Name>',NickName, [rfReplaceAll, rfIgnoreCase]);
Memo1.lines[i] := StringReplace(Memo1.Lines[i],'<Mother Name>',MotherName, [rfReplaceAll, rfIgnoreCase]);
RichEdit1.Lines.Add(Memo1.lines[i]);
end;

end;
Med venlig hilsen
Monie Jacobsen

Eftersom du ikke er logget ind i systemet, kan du ikke skrive et indlæg til dette spørgsmål.

Hvis du ikke allerede er registreret, kan du gratis blive medlem, ved at trykke på "Bliv medlem" ude i menuen.