Jak przyporządkować zmiennej zawartość pliku komendą LoadFromFile?

2011-11-07T21:33:58+01:00

Rejestracja: dni
Ostatnio: dni

Witam,
Mój problem polega na tym, że nie potrafię przypisać zmiennej (w tym przypadku o nazwie Reminders) zawartości pliku tekstowego z rozszerzeniem .txt. Mianowicie wygląda to tak:

Zmienna:

Kopiuj

 var
  Reminders : TextFile;

Kod (w tym przypadku operacja która ma się wydarzyć po naciśnięciu buttona):

Kopiuj

procedure TForm1.Button1Click(Sender: TObject);
begin
Reminders := LoadFromFile(E:\starter\reminders.txt);
Label1.Caption := Reminders;
end;

Jak mam przypisać zmiennej Reminders zawartość pliku "E:\starter\reminders.txt", aby wyświetliła się ona na Label1 ?
Proszę o pomoc. Nie piszcie bardzo skomplikowanych odpowiedzi. Jestem nowicjuszem w tym języku i ogólnie w programowaniu, więc proszę o odpowiedzi, które będę mógł w miarę łatwo zrozumieć.

Patryk27

2011-11-07T21:43:02+01:00

Rejestracja: dni
Ostatnio: dni
Lokalizacja: Wrocław
Postów: 13042

1.Jak zaczyna się programowanie, to od Free Pascala i konsoli.
2.

Kopiuj

Reminders := LoadFromFile(E:\starter\reminders.txt);

To nie ma prawa się skompilować.
Poczytaj o TStringList, ew.użyj ReadLn; coś a'la:

Kopiuj

Var F: File;
    S, T: String;
Begin
 S := '';
 Try
  AssignFile(F, 'nazwa_pliku.txt');
  Reset(F);
  While (Not Eof(F)) Do
  Begin
   ReadLn(F, T);
   S := S + T; 
  End;
  CloseFile(F);
 Except
  CloseFile(F);
  S := '';
 End;
 //Aktualnie w zmiennej 'S' znajduje się zawartość pliku 'nazwa_pliku.txt' (przyjmując, że on istnieje).
End;

pelsta

2011-11-07T22:21:45+01:00

Rejestracja: dni
Ostatnio: dni
Postów: 819

Zrobiłbym tak:

Kopiuj

var
  f:file of Char;
  fs:Integer;
  s:string;
//...
  AssignFile(f,'E:\starter\reminders.txt');
  Reset(f);
  fs:=FileSize(f);
  SetLength(s,fs);
  BlockRead(f,s[1],fs);
  CloseFile(f);
  Label1.Caption:=s;

A jeżeli koniecznie musi być

komędą LoadFromFile
to tak:

Kopiuj

with TStringList.Create do
begin
  LoadFromFile('E:\starter\reminders.txt');
  Label1.Caption:=Text;
  Free;
end;

Liczba odpowiedzi na stronę

Zarejestruj się i dołącz do największej społeczności programistów w Polsce.

Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.

Utwórz konto