Kako da izbrisem zadnji simbol iz neke datoteke? Ili samo iz Memo komponente preko programa?
Brisanje iz datoteke...
Zaključano
Zakačeno
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;
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;
Code:
if Memo1.Text<>'' then
Memo1.Text:= Copy(Memo1.Text, 1, Length(Memo1.Text)-1);
if Memo1.Text<>'' then
Memo1.Text:= Copy(Memo1.Text, 1, Length(Memo1.Text)-1);
Citat:
morlic:
Code:
if Memo1.Text<>'' then
Memo1.Text:= Copy(Memo1.Text, 1, Length(Memo1.Text)-1);
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