Zapis i odczyt???

0

Jak w turbo pascalu zapisać i odczytać zapisaną zmienną podaną przez użytkownika w czasie działania programu. [???] [???]

0

Gdzie zapisać?? Do pliku??
Co do odczytac to wydaje mi się (bo sam siedze w Delphi), że należy:

var
A : Integer;
begin
Writeln('Podaj liczbe A');
Read(A);
A := A + 3;
Writeln(IntToStr(A));
end;

Nie wiem czy dobrze zrozumialem :-)

0

Kod niby gut, ale w tp nie ma czegoś takiego jak IntToStr...

0

własnie poco IntToStr skoro Write jest beztypowy, obsluguje każdy praktycznie tym spotykany wdelphi, chodzi o podstawowe typy :)

0

var
A : Integer;
begin
Writeln('Podaj liczbe A');
Read(A);
A := A + 3;
Writeln(IntToStr(A));
end;

wszystko stad rozumiem, użytkownik podaje liczbę a program podstawia ją jako A


ale nie o to mi chodzi

patrz tak jak wczesniej kod programu bedzie taki:

program dane;
var
imie : string;
begin
Writeln('Podaj swoje imię: ');
readln(imie);
end.

Teraz chciałbym zapisać do pliku np. "dane" zmienną imie.
A później by jakiś inny program mógł odczytać tą zmienną.

0

!!!!!! [b]SPAM[/b] !!!!!!

Wejdź na moją stronkę -> kurs -> podstawy -> pliki.

!!!!!! [b]SPAM[/b] !!!!!!

0

Mówiłem wam, że programuje w Delphi i nie jestem pewien co do poprawności mojego kodu heh... to byłoby na tyle ;-)

0

Nikt nie wie czy co ???? [???]

0

AssignFile + Reset + CloseFile + F1

0

Załamać się można.

To nie spam Vogel. To konieczność. Może lepiej umieść ten kurs tutaj?

Wejdź na moją stronkę -> kurs -> podstawy -> pliki.

0

To nie spam Vogel. To konieczność. Może lepiej umieść ten kurs tutaj?

  1. kurs nie jest dokończony (z OP mi jeszcze zostały 3 tematy do opracowania - i koniec)
  2. jak skończę, to zamieszczę
  3. tu i tak jest masa kursów (ale mój chyba jako jedyny jest taki tradycyjny: najpierw Pascal i Hello Word potem OP i HelloWord)
  4. zamieszczę
  5. Dryo: odsyłaj do niego jak najczęsciej (odwiediny... hehe)
0

Jakbyś nie miał zastrzeżeń mógłbyś mi przesłać na maila.

0

Jakbyś nie miał zastrzeżeń mógłbyś mi przesłać na maila.

Do ściągnięcia jako *.zip z mojej stronki :)

0

To może odpowiem na pytanie zadane w tym temacie...

Zapis do pliku w tp:

procedure zapis;
var plik:text;
begin
assign(plik,'C:\plik.txt');
rewrite(plik);
Writeln(plik,linia);
close(plik);
end;

linia to ten tekst który tam zapisujesz

Odczyt z pliku

procedure odczyt;
var plik:text;
begin
assign(plik,'C:\plik.txt');
reset(plik);
readln(plik,tekst);
close(plik);
end;

tekst musi to być zmienna globalna typu string

0

Szybko, prosto, i zrozumiale , dzięki

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