[Delphi] tekst z parametrami

0

Witam,

Piszę programik do zarządzania zgłoszeniami serwisowymi. Jest to prosta aplikacja korzystająca z bazy MySQL i formularza internetowego od strony klienta oraz właśnie mój programik od strony serwisu.

Kolega, dla którego to pisze zażyczył sobie aby aplikacja przesyłała informacje w formie maila do zainteresowanych. Nie jest to trudne i wiem jak to zrobić ale dodatkowym warunkiem jest możliwość edycji tych komunikatów przez kolegę.

Wpadłem na pomysł aby programik korzystał z formularzy podobnych jakie stosowało się w programach dos-owych, czyli tekst z parametrami umieszczonymi w nawiasach kwadratowych (parametry pobierane z bazy danych, panelu lub przez jakieś zmienne). Gotowe pliki tekstowe umieścił bym w folderze programu.

Teraz moje pytanie - jak to zrobić? Wystarczą mi jakieś wskazówki - nawet nie wiem jak się taki sposób nazywa żeby poszukać :-)

Pozdrawiam
Robert

0

nie wiem jak inni ale ja nie mam pojecia o co Ci dokladnie chodzi... ;]

0

No właśnie jest mi to ciężko wytłumaczyć. Postaram się dokładnie napisać:

Mam plik tekstowy (na dysku):

Informacja dla zleceniodawcy!
Szanowny [imie] [nazwsko]
Informujemy cię że twój dysk [marka] o numerze seryjnym [serial_number] został odesłany do serwisu producenta.

W pliku tym zmienne: imie, nazwisko, marka, serial_number są odpowiednimi wartościami w bazie danych.

Jak przekazać te zmienne do pliku tekstowego?

0

czyli chcesz zamienic pewne "wyrazy" w pliku tekstowym na inne, tak? ;]

var list:TStringList;
    s:String;
begin
  list:=TStringList.Create;
  list.LoadFromFile('plik.txt');
  s:=list.Text;

  s:=StringReplace(s, '[imie]', zmienna_z_imieniem, [rfReplaceAll,rfIgnoreCase]);
  s:=StringReplace(s, '[nazwisko]', zmienna_z_nazwiskiem, [rfReplaceAll,rfIgnoreCase]);

  list.Text:=s;
  list.SaveToFile('plik.txt');
  list.Free;
end;
0

Kurcze, najprostsze rzeczy są czasami najtrudniejsze. Cuda wymyślałem zamiast spojrzeć na to w sposób podstawowy.
Dzięki bardzo :)

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