Jak zapisywać plik jako notatnik z nazwą edit1.text tam gdzie ja chcę?

Witam.

Bardzo mi zależy, żeby w moim programie była możliwość zapisywania zawartości memo do folderu z programem. Folder ma nosić nazwę scripts i jak już wspomniałem będzie on w folderze z programem.

Ogarnąłem zapis zawartości memo do notatnika, a wygląda to tak:

save:= edit1.text;
AssignFile(TF, save);
ReWrite(TF);
for i:= 0 to memo1.lines. count do
Writeln(TF, memo1.Lines[i]);
CloseFile(TF);
showmessage('zapisano');

i to integer, tf:textfile, save:string. Jak widzicie zapisze mi to wszystko do folderu z programem z nazwą edit1. Nie wiem jednak jak to zapisać do scripts. Mógłby mi ktoś wyjaśnić jak to ogarnąć?

Z góry dziękuje.

zamiana znacznika <quote> na <code class="delphi"> - furious programming

Memo1.Lines.SaveToFile(ExtractFilePath(ParamStr(0))+'scripts\'+Edit1.Text);

No nie wierzę że z takiego skryptu zrobiło się tylko takie coś:

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.SaveToFile(ExtractFilePath(ParamStr(0))+'scripts\'+Edit1.Text);
showmessage('zapisano');
end;

Dziś pół ranka kombinowałem jak to zapisać z tekstem edit1, a tu takie coś. Na dodatek czytałem, że liczba linii w memo musi być zmienną w przypadku zapisania i musi być zadeklarowana.. eh.. :)

Jak to będzie wyglądać w przypadku wczytywania tego?
Coś na tej zasadzie?

procedure TForm1.Button2Click(Sender: TObject);
begin
Memo1.Lines.LoadFromFile(paramstr(0)+'scripts\'+Edit1.Text);
showmessage('zaladowano poprawnie');
end;

zamiana znaczników [quote] na <code class="delphi"> - furious programming

Już @pelsta odpowiedział. Ja tylko dodam, że jeżeli piszemy pod VCL. To po co się bawić w rzeźbienie, takie jak chciałeś z konstrukcjami, rodem z Turbo Pascala. Lepiej skorzystać ze wszystkich dobrodziejstw VCL. Czyli też metod pól klasy TStrings również. I na przyszłość pytania o tak banalne podstawy, zadawaj w dziale Newbie. Wcześniej kombinując samodzielnie poprzez szukanie w Google i pomocy do IDE. Także wątek przenoszę, zaś powyższą odpowiedź zatwierdzam.

Już jest dobrze.
Ładowanie:

Memo1.Lines.LoadFromFile('scripts\'+Edit1.Text);
showmessage('zaladowano poprawnie');

Mam pytanie. Jest możliwe dodanie do memo czegoś takiego jak suwak? Chodzi mi o to że gdy załaduję tam kilka wyrazów to niestety mi nie pokazuje suwaka i pokazuje mi tylko wyrazy, które lecą od góry. Tych na dole niestety nie widać.

dodanie znacznika <code class="delphi"> - furious programming

Memo ma właściwość ScrollBars wypróbuj wszystkie opcje nie jest ich wiele.

A ja się podłączę pod temat bo mam podobny problem. Gdzie na palecie komponentów znajdę TMemo? i co muszę wpisać pomiędzy Begin i end. żeby mi ekran w konsoli wyczyściło?