When you found a mention of AppTethering (what's good enough) you can see the examples with him that are part of the Delphi supply. The most useful example in your case is PhotoWall (if the RAD Studio installation was conducted with default routes, it is in the folder C:\Users\Public\Documents\Embarcadero\Studio\17.0\Samples\Object Pascal\RTL\Tethering\PhotoWallwhere the pictures are sent.What components need to be used for the diary depends on the design of the application. In the simplest case, it's a list. TMemo and several TImageadded dynamically. More complex, but possibly more beautiful, use RichEdit. To date, no free versions of this FMX component are available. On the website. http://fire-monkey.ru/ Jaroslav Brovin is only preparing his component for the release. You should look the other way. http://tmssoftware.com/site/tmsfmxpack.asp ♪Clarification 1: RAD XE5 will not work with the latest versions of Android, better go to RAD Seattle. Clarification 2: AppTethering does not work online. Both applications should be on the same network. Less you're bored because of the lack of specification: "I tried this like this, "that's not how it works. How am I supposed to get past this flaw?

Function GetExitCodeProcess Due from function belowfunction WaitProcess( FileName:AnsiString; CommandLine:AnsiString = ''; CurrentDir:AnsiString = ''; pExitCode:PDWORD = nil ):BOOLEAN; var StartupInfo : _STARTUPINFOA; ProcessInfo : TProcessInformation; WaitRes : DWORD; Msg : TMsg; Done : BOOLEAN; begin ... end; Her announcement is kind of right.function WaitProcess( FileName:AnsiString; CommandLine:AnsiString = ''; CurrentDir:AnsiString = ''; pExitCode:PDWORD = nil ):BOOLEAN;

Maybe:Function MyFunc(a, b: string): integer; Begin Result:= Pos(b, a); End; Then the challenge will be:... Delete (a, MyFunc(Edit1.Text, Edit2.Text), caunt); ... And if you get rid of the challenge of your function, you can just:... Delete (a, Pos(Edit2.Text, Edit1.Text), caunt); ...

Actually, I wouldn't agree with the comments. It's so much easier, it's a very busy topic. Vinda has a library winscard.dll. This magic library is implementing the PC/SC protocol, which is easier to say, the data exchange protocol between the comp (PC) is a smart card (SC). The record has a huge plus, he's got to know what you're using. And this protocol is open! Thank the gods! I even found examples of delphi. The bottom line is a static challenge to procedures from this dll. And Vinda will do all the black work for you.UpdatingEspecially if they're just the key to authorization, you need to, for example, just get a card serial record, and then, for example, determine the owner and his level of access.UpdatingHere's a description of the protocol. Examples on C++. http://forum.vingrad.ru/articles/topic-192183/kw-pcsc.html I'll look for it. I'll write some more work.That's the way it works.Initiation of the rudder. Initialization of the map.Open a reading card (or reading and recording). Each item to call a function from dll, or you can use a downloaded pas. I'd write it myself. In order to blemish, I advise you to step towards the statistical challenge of the function/procedure from dll.I'm just working on a similar problem right now, if I do the results on my website myshinobi.ru. There's my soap, if anything, write.

Just the resources. ImageList can do it, but'll have to write an extra code. We're in our braces.

Your code says somewhere. {$true} You probably wanted to comment. truebut the dollar is shy. Nature expression {$xxx} The compiler is regarded as directives. And as soon as there's no such directive, he's throwing you a burglary.

Yeah. You'll have a few copies of one form.It's desirable to destroy the uniform when you don't need it anymore. But no one's stopping her from reusing her.All components that are added to the form need not be destroyed by the pens, the form will remove them automatically when removed. Components that are not tied to form need to be removed on their own. The variables that require it should also be removed (e.g. TStringList).

The icons need to be loaded. ImageListYou can tie it in a designer with shapes. ListView♪ There's a special field or even a few. For components ListView It will only be necessary to indicate the index of the icon in this leaf, IconIndex I think so. If you need to change the icons, make two lists with the icons. ImageList different sizes. If the order of the finals matches, you'll only have to change the size. ListView The association with the list of icons.

Dropped in uniform like you described. I didn't have that situation again. Is the app doing something else at this point?

You didn't understand the function. StringToWideCharNot ExtractIconEx♪ Massive WideChars (boopher) must be size enough to get your line in. fname♪ Must be like,var WideChars: array of WideChar; begin SetLength(WideChars, Length(fname) + SizeOf(WideChar)); // на один символ больше для "terminated by a NULL wide character" StringToWideChar(fname, WideChars, Length(WideChars)); Although you don't need this function, do it that way.ExtractIconEx(PChar(fname), i, lgIconHandle, smIconHandle, 1) Don't forget to call. DestroyIcon For each bacon extracted by this function.

Not enough. FindClose(find) after the search. In the background FindFirst black white says: FindFirst allocates resources (memory) that must be released by calling FindClose.In fact, it's common to find leaks. http://sourceforge.net/projects/fastmm/ or what instrument, not a task manager.

Well, I've got this kind of thing. It's not exactly the best option.var s: TStringList; i: Integer; d: Boolean; begin s := TStringList.Create; s.Duplicates := dupAccept; s.LoadFromFile('1.txt'); s.Sort; i := 0; d := False; while i < s.Count - 1 do begin if s[i] = s[i + 1] then begin d := True; Inc(i); end else if not d then s.Delete(i) else begin d := False; Inc(i); end; end; if not d then s.Delete(i); s.SaveToFile('double.txt'); s.Free; end;

In the Delphi versions of the directive $IF This can be done:const cOne = 1; cTwo = 2; {$IF cOne < cTwo} cThree = cOne; {$ELSE} cThree = cTwo; {$IFEND} // возможно, компилятор скажет что эта директива устарела и потребует использовать {$ENDIF} If you wish, you can write more compactly, it's defayna:cThree = {$IF cOne < cTwo} cOne {$ELSE} cTwo {$IFEND};

Put the video on. TImage Incorrectly, this component is designed for static images.Take it. TPaintBox and paint. Bitmap to him. Canvas by StretchBlt♪And the size of the chosen part of the batmap is to be adjusted motion-- that'll be scaled up.

You're gonna cut the juice you're sitting on or you're pulling the rug from your feet.for i := L.Count - 1 downto 0 do And you will. L.SaveToFile from the cycle.

sl := TStringList.Create; sl.Delimiter := '/'; sl.DelimitedText := Memo1.Lines[0]; And take sl[i]

That's how it works:s := StringReplace(s, 'Text ', 'Text' + IntToStr(i) + ' ', [rfIgnoreCase]); added a gap in the template;Remove the replacement of all places;I added a gap in the replacement.Example of use:procedure DoTest; var i: Integer; s1, s2: string; begin s1 := 'Text 01.02 Text 03.01' + #13#10 + 'Text 01.02 Text 03.01' + #13#10 + 'Text 01.02 Text 03.01'; i := 1; repeat s2 := StringReplace(s1, 'Text ', 'Text' + IntToStr(i) + ' ', [rfIgnoreCase]); if s1 &lt;&gt; s2 then begin s1 := s2; Inc(i); end else begin Break; end; until False; Writeln(s2); end;

If this is to replace the timer, we shall take the following steps.Writing a function.function GetHandle: Integer; var Pos: TPoint; // Позиция курсора begin // Получаем позицию курсора GetCursorPos( Pos ); // Получаем Handle окна под курсором Result := WindowFromPoint( Pos ); end; We're intercepting a form of clavicle.KeyPreview := True Writing event KeyDown With a check on the right keyboards and a copy of the buffer.uses Vcl.Clipbrd; procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (Shift = [ssCtrl]) and (key = Ord('C')) then Clipboard.AsText := IntToStr(GetHandle); end; All this will work only when the window is active. If it's required to work with a focus on any window, we need to use the Wind Hooks.The simplest way is to get it out of the way. LabelHandle.Captionuse TEditin this case CTRL+C I'll be working from the box, so to speak.

var prev: string; str: string; i: integer; begin str := '1. Космос 2. Nastasia 3. mamochka.dochka0702 4. kyklabratz 5. ProstoTanya 6. Olga135'; prev := ''; i := 1; while (prev <> str) do begin prev := str; str := StringReplace(str, IntToStr(i) + '. ', #13#10, [rfReplaceAll]); Inc(i); end; WriteLn(str); end;

if OpenDialog1.Execute then begin for i := 0 to OpenDialog1.Files.Count - 1 do begin AssignFile(f1, OpenDialog1.Files[i]); AssignFile(f2, 'out' + IntToStr(i + 1) + '.txt'); Reset(f1, 1); Rewrite(f2, 1); ... CloseFile(f1); CloseFile(f2); end; end;