[Okta Webinar] Learn how to a build a cloud-first strategyRegister Now

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 205
  • Last Modified:

%a %b %c Things...

Hello,

How can I make a edit-able popup window

e.g
If the user puts,
%a its changes into Edit1.Text
%b its changes into Edit2.Text
%c its changes into Edit3.Text

Ect... Hope you know what im talking about

Thx Karamja
0
-Karamja-
Asked:
-Karamja-
  • 2
  • 2
1 Solution
 
kretzschmarCommented:
>Hope you know what im talking about

ehm, no
0
 
-Karamja-Author Commented:
Gay, lol
0
 
-Karamja-Author Commented:
I have found somethink like I want to do,

function GetCPUSpeed: Double;
const
  DelayTime = 500;
var
  TimerHi, TimerLo: DWORD;
  PriorityClass, Priority: Integer;
begin
  PriorityClass := GetPriorityClass(GetCurrentProcess);
  Priority      := GetThreadPriority(GetCurrentThread);

  SetPriorityClass(GetCurrentProcess, REALTIME_PRIORITY_CLASS);
  SetThreadPriority(GetCurrentThread, THREAD_PRIORITY_TIME_CRITICAL);

  Sleep(10);
  asm
    dw 310Fh
    mov TimerLo, eax
    mov TimerHi, edx
  end;
  Sleep(DelayTime);
  asm
    dw 310Fh
    sub eax, TimerLo
    sbb edx, TimerHi
    mov TimerLo, eax
    mov TimerHi, edx
  end;

  SetThreadPriority(GetCurrentThread, Priority);
  SetPriorityClass(GetCurrentProcess, PriorityClass);

  Result := TimerLo / (1000 * DelayTime);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(Format('Your CPU speed: %f MHz', [GetCPUSpeed]));
end;


If you look it has a %f and thats changed into the computer speed

How can I make my on %a, %b, %c ect and link them to edit or labels
0
 
kretzschmarCommented:
see about the format-function

showmessage(format(%s %s %s,['I', 'say','hello']));

or with editboxes

showmessage(format(%s %s %s,[edit1.text, edit2.text,edit3.text]));

just from head, not tested

hope this is for what you are after

meikl ;-)

0

Featured Post

Free Tool: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

  • 2
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now