Brisanje iz datoteke...

[ Vladica Savić @ 20.05.2006. 08:16 ] @

Kako da izbrisem zadnji simbol iz neke datoteke? Ili samo iz Memo komponente preko programa?

[ morlic @ 20.05.2006. 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;

[ morlic @ 20.05.2006. 09:21 ] @

Code:

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

[ Vladica Savić @ 20.05.2006. 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