Otwieranie kilku plikow TXT jednoczesnie

0

Witam.
Jesli ktos moze napisac kod dzieki ktoremu bede mogl pobrac do jednego okna (RichEdit albo Memo) zawartosc jednego pliku TXT, a za nim otworzyc i dopisac linijki innego pliku TXT.

RichEdit1.loadfromfile(opendialog1.filename);

..to wyswietla 1 plik, a gdy otwieram kolejny, zawartosc poprzedniego sie kasuje. Chcialbym aby pozostala a linie drugiego pliku dopisaly sie ponizej.

Dziekuje za poswiecony czas.
Novicius

0
var
  Plik: TStringList;
begin
  Plik := TStringList.Create;
  Plik.LoadFromFile('Nazwa pliku 1');
  Memo1.Lines.AddStrings(Plik);
  Plik.LoadFromFile('Nazwa pliku 2');
  Memo1.Lines.AddStrings(Plik);
  Plik.Free;
end;

Ew. pierwsze wczytanie możesz zastąpić przez LoadFromFile. Możesz też dodać na początku Clear... ktp.

0

Hmm...
W sumie racja, ale jeszcze jedno utrudnienie.
To uzytkownik ma zdecydowac ktore pliki otworzyc i wyswietlic jeden pod drugim czyli musi tam gdzies byc "opendialog1.filename".

I wlasnie w tym jest problem.


Novicius

0

To weź drugi openDialog albo zapisz pierwszą scieżke do pamięci

0

Albo w opendialog pozwól na zaznaczanie wielu plików i czytaj nie z właściwości FileName a właściwości Files.

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