pomocy z mianą liczb a liter nie

cześć
mam pytanie :
chce zrobić sobie taki generator żeby dodawał mi liczbe o 1 ale znaki nieruszał np:
;a;;;1;;2;;3
;a;;;2;;3;;4
;a;;;3;;4;;5
itd
dotego żeby mi zapisywał do pliku np. formacie .txt

w jaki sposób mam to zrobić??
p.s. próbowałem szukać mojego problemu ale nieznalazłem na forum

dzięki pozdrawiam [browar]

Może tak:

var
s:string;
i:integer;

begin
FOR i:=0 TO length(s) DO
BEGIN
IF s[i]='1' THEN s[i]:='2';
IF s[i]='2' THEN s[i]:='3';
IF s[i]='3' THEN s[i]:='4';
IF s[i]='4' THEN s[i]:='5';
...

END;

bardziej mi chodziło żeby to zrobic aby ten generator był RichEdit aby można było to zapisać w txt.
Może i jak ty młowisz może będzie ok ale niewiem jak to zrobic jestem bardzoooo cienkiiiii w tym i dopiero zaczynam

No to dajesz na początku :

s:=Richedit.text;

.. a na końcu:

Richedit.text:=s;

I po problemie :)

;-| [wstyd] niewychodzi ;-(
może byś mi przepisał cały kod tego albo wytłumaczył co gdzie powinno byc ;-( [wstyd]

Rany julek.. co ci nie wychodzi. Wstawiasz na formę ten RichEdit i np. jakiś buttton, i teraz klikasz na button 2 razy i masz:

[code]procedure TForm1.Button1Click(Sender: TObject);

var
s:string;
i:integer;

begin
s:=richedit1.text;
FOR i:=0 TO length(s) DO
BEGIN
IF s[i]='1' THEN s[i]:='2';
IF s[i]='2' THEN s[i]:='3';
IF s[i]='3' THEN s[i]:='4';
IF s[i]='4' THEN s[i]:='5';
// az do 8 piszesz

richedit1.text:=s;
end;[/code]

Ludzie jakie kombinacje.

1. Czyt o są same cyfry?
2. Czy liczby mają w pliku przeznaczone stałe miejsce? (np. 5 pól na liczbę)?
   Zwykłe Read i wczytywanie z pliku liczb. Dodanie 1 i zapis ponowny (można od razu całej linijki. Pisanie wiele razy tego ifa to się można załamać.
   Nawet jeżeli to już miałoby być tak jak tutaj to chyba lepiej tak:
   if s[i] in ['1'..'8'] then
   s[i] := Succ(s[i]);

ok działa ale niestety nieoto mi chodziło ;-( chodziło mi oto że:
1)te liczby twożą się aż do 1000000 (milona) :-0
2)tworzy nowy wpis np:
;;;;;;;;;1;;;;;;;1;;;
;;;;;;;;;2;;;;;;;2;;;
;;;;;;;;;3;;;;;;;3;;;
itd.
a nie zmienia [glowa]

przepraszam że niewytłumaczyłem [wstyd] wielkie przeprosiny

pozdr