- Как
узнать размер файла
var
a:File;
x:integer;
begin
AssignFile(a,'c:\Win386.swp');
Reset(a,1);
label1.Caption:=FloatToStr(FileSize(a));
CloseFile(a);
end;
- Как
создать файл если его нет
var
a:TextFile;
begin
AssignFile(a,'c:\1.txt');
{$I-}
Append(a);
IF IORESULT = 0
then Button1.Enabled:=true
else Rewrite(a);
closeFile(a);
- Как
у формы убрать закладку в Task Баре
ShowWindow(Application.Handle,sw_Hide);
- Как
вводить текст (например в memo1) чтоб он мне предлагал
похожие слова
var
words: TStringList;
procedure TForm1.FormCreate(Sender: TObject);
begin
words := TStringList.Create;
words.Sorted := true;
words.Add('one');
words.Add('two');
words.Add('four');
words.Add('five');
words.Add('six');
words.Add('seven');
words.Add('eight');
words.Add('nine');
words.Add('ten');
end;
procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word; Shift:
TShiftState);
const
chars: set of char = ['A'..'Z', 'a'..'z', 'А'..'Я', 'а'..'я'];
var
w: string;
i: integer;
s: string;
full: string;
SelSt: integer;
begin
if Key = 13 then begin
Edit1.SelStart := Edit1.SelStart + Edit1.SelLength;
Edit1.SelLength := 0;
Exit;
end;
s := Edit1.Text;
SelSt := Edit1.SelStart;
i := SelSt;
if (length(s) > i) and (s[i+1] in chars) then Exit;
w := '';
while (i >= 1) and (s[i] in chars) do begin
w : = s[i] + w;
dec(i);
end;
if length(w) <= 0 then Exit;
words.Find(w, i);
if (i >= 0) and (UpperCase(copy(words[i], 1, length(w))) = UpperCase(w)) then begin
full := words[i];
insert(copy(full, length(w) + 1, length(full)), s, SelSt + 1);
Edit1.Text := s;
Edit1.SelStart := SelSt;
Edit1.SelLength := length(full) - length(w);
end;
end;
P.S.
Вопросы формулировал не я, прошу не придираться
к некорректности, это все лишь цитаты.
