Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Brisanje iz datoteke...

[es] :: Pascal / Delphi / Kylix :: Brisanje iz datoteke...

[ Pregleda: 666 | Odgovora: 3 ]

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Vladica Savić
My Computer - LordWEB!
Nis/Leskovac

Član broj: 26699
Poruke: 417
212.200.123.*

ICQ: 368492567
Sajt: myitviewoflife.blogspot.c..


Profil

icon Brisanje iz datoteke...20.05.2006. u 08:16

Kako da izbrisem zadnji simbol iz neke datoteke? Ili samo iz Memo komponente preko programa?
20.05.2006. u 08:16 

morlic
Milos Orlic
Beograd

Moderator
Član broj: 6081
Poruke: 723
*.117.eunet.yu.



Profil

icon Re: Brisanje iz datoteke...20.05.2006. u 09:19
Code:

Var
  FStream: TFileStream;
begin
  FStream:= TFileStream.Create('c:\proba.txt', fmOpenWrite);
  try
    if FStream.Size > 0 then  // Provera
      FStream.Size:= FStream.Size - 1; // Ovde skidamo jedan bajt sa kraja
  finally
    FStream.Free;
  end;
end;
20.05.2006. u 09:19 

morlic
Milos Orlic
Beograd

Moderator
Član broj: 6081
Poruke: 723
*.117.eunet.yu.



Profil

icon Re: Brisanje iz datoteke...20.05.2006. u 09:21
Code:

  if Memo1.Text<>'' then
    Memo1.Text:= Copy(Memo1.Text, 1, Length(Memo1.Text)-1);

20.05.2006. u 09:21 

Vladica Savić
My Computer - LordWEB!
Nis/Leskovac

Član broj: 26699
Poruke: 417
212.200.123.*

ICQ: 368492567
Sajt: myitviewoflife.blogspot.c..


Profil

icon Re: Brisanje iz datoteke...20.05.2006. u 09:39
Citat:
morlic
Code:

  if Memo1.Text<>'' then
    Memo1.Text:= Copy(Memo1.Text, 1, Length(Memo1.Text)-1);

Probao sam slicno ovako, ali nije htelo, sigurno sam zaboravio prvu jedinicu...
Hvala
20.05.2006. u 09:39 

[es] :: Pascal / Delphi / Kylix :: Brisanje iz datoteke...

[ Pregleda: 666 | Odgovora: 3 ]

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.