Jak to zrobić? (zamiana)

0

Witam!

Chciałbym wiedzieć jak najbardziej prościej wykonać procedurkę która będzie zamieniać słowa np. w RichEdit na inne i zapisywała do pliku wynikowego lub pozostawała w innym RichEdit...
np.
&ltCzcionka1&gt &ltPokazTxt&gt "jakis tekst" &ltWyjazdDoGory&gt
a zeby zamienial np. na:
F21 F9 "jakis tekst" F5

Tak to mniej wiecej ma wygladac...
{hello} --To jest właśnie złośliwość rzeczy martwych...

0

do uses dopisujemy StrUtils;

funkcja zamieniajaca to:

function Zamiana(S: String): String;
begin
S := AnsiReplaceStr(S, '&ltCzcionka1&gt', 'F21');
S := AnsiReplaceStr(S, '&ltPokazTxt&gt', 'F9');
S := AnsiReplaceStr(S, '&ltWyjazdDoGory&gt', 'F5');
Result := S;
end;

np. w OnClick buttona piszemy:

RichEdit2.Text := Zamiana(RichEdit1.Text);

w RichEdit2 pojawi sie zamieniony tekst ;)

ps. jezeli nie ma funkcji AnsiReplaceStr trzeba zamienic ja na ReplaceStr :)

--
-=-=[ Delphi 3, 6 ]=-=-
-=-=-==[ LKS ]==-=-=-
-=[ [email protected] ]=-

0

LKS napisał:
do uses dopisujemy StrUtils;

w ogóle mi nie przujmuje takie czegoś... StrUtils :(

Dalej to nie wiem bo jak nie zadeklaruje to chyba reszta itak nie bedzie dzialac...--To jest właśnie złośliwość rzeczy martwych...

0

a jakie masz Delphi ? :)---=-=[ Delphi 3, 6 ]=-=-
-=-=-==[ LKS ]==-=-=-
-=[ [email protected] ]=-

0

5--To jest właśnie złośliwość rzeczy martwych...

0

Ta procedura korzysta i tak ze StringReplace()
która jest w SysUtils, no ale może tylko w Delphi 6--__
Pozdrawiam...
piechnat

0

piechnat napisał:
Ta procedura korzysta i tak ze StringReplace()
&gtktóra jest w SysUtils, no ale może tylko w Delphi 6

No rzeczywiscie jest takie coś, ale jak tego użyć? Może jakiś mały kodzik plisss :) THX! {hello}--To jest właśnie złośliwość rzeczy martwych...

0

function Zamiana(S: String): String;
begin
S := StringReplace(S, '&ltPokazTxt&gt', 'F9',[rfReplaceAll, rfIgnoreCase]);
S := StringReplace(S, '&ltWyjazdDoGory&gt', 'F5',[rfReplaceAll, rfIgnoreCase]);
Result := S;
end;

i w OnClick buttona:
RichEdit2.Text := Zamiana(RichEdit1.Text);

--
-=-=[ Delphi 3, 6 ]=-=-
-=-=-==[ LKS ]==-=-=-
-=[ [email protected] ]=-

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0