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)
>jak zrobic tak aby stringowi przypisac zawartosc schowka
string := Clipboard.AsText;
>lub 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 ]==-=-
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 ]==-=-
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 ]==-=-
dzieki
a := Clipboard.AsText;
ta linia juz mi wszystko wyjasnila
--Delphi 6 (paskal is good too)