wklejanie zawartosci schowka do pliku

0

komponent clipbrd umozliwia np wklejenie tekstu ze schowka do edita
wyglada to tak
if Clipboard.HasFormat(CF_TEXT) then
Edit1.PasteFromClipboard;
jak zrobic tak aby stringowi przypisac zawartosc schowka lub zapisac schowek bezposrednio do pliku--Delphi 6 (paskal is good too)

0

&gtjak zrobic tak aby stringowi przypisac zawartosc schowka

string := Clipboard.AsText;

&gtlub zapisac schowek bezposrednio do pliku

var
TF: TextFile;
begin
AssignFile(TF, 'C:\pliczek.txt');
try
ReWrite(TF);
Writeln(TF, Clipboard.AsText);
finally
CloseFile(TF);
end;
end;

chyba tak to bedzie :-)
nie wiem bo nie sprawdzalem

ps. pq THX !!! :-)---=[ Delphi 3, 6 ]=-
-=-==[ LKS ]==-=-

0

oczywiscie najpierw musisz sprawdzic czy w schowku jest tekst :-)
czyli bedzie to wyglada tak:

var
TF: TextFile;
begin
if Clipboard.HasFormat(CF_TEXT) then
begin

  AssignFile(TF, \\'C:\\\\pliczek.txt\\'); 
  try 
  ReWrite(TF); 
  Writeln(TF, Clipboard.AsText); 
  finally 
  CloseFile(TF); 
  end; 
end; 

end;---=[ Delphi 3, 6 ]=-
-=-==[ LKS ]==-=-

0

sorki zylo
tam gdzie jest:
AssignFile(TF, \\'C:\\\\pliczek.txt\\');

powinno byc bez tych \
cos na forum jest nie tak :(
oczywiscie po C: powinien byc ten znak :D ---=[ Delphi 3, 6 ]=-
-=-==[ LKS ]==-=-

0

dzieki
a := Clipboard.AsText;
ta linia juz mi wszystko wyjasnila
--Delphi 6 (paskal is good too)

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