Solved

%a %b %c Things...

Posted on 2003-12-03
4
175 Views
Last Modified: 2010-04-05
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
Comment
Question by:-Karamja-
  • 2
  • 2
4 Comments
 
LVL 27

Expert Comment

by:kretzschmar
Comment Utility
>Hope you know what im talking about

ehm, no
0
 
LVL 2

Author Comment

by:-Karamja-
Comment Utility
Gay, lol
0
 
LVL 2

Author Comment

by:-Karamja-
Comment Utility
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
 
LVL 27

Accepted Solution

by:
kretzschmar earned 20 total points
Comment Utility
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

Enabling OSINT in Activity Based Intelligence

Activity based intelligence (ABI) requires access to all available sources of data. Recorded Future allows analysts to observe structured data on the open, deep, and dark web.

Join & Write a Comment

Objective: - This article will help user in how to convert their numeric value become words. How to use 1. You can copy this code in your Unit as function 2. than you can perform your function by type this code The Code   (CODE) The Im…
Have you ever had your Delphi form/application just hanging while waiting for data to load? This is the article to read if you want to learn some things about adding threads for data loading in the background. First, I'll setup a general applica…
Internet Business Fax to Email Made Easy - With eFax Corporate (http://www.enterprise.efax.com), you'll receive a dedicated online fax number, which is used the same way as a typical analog fax number. You'll receive secure faxes in your email, fr…
Excel styles will make formatting consistent and let you apply and change formatting faster. In this tutorial, you'll learn how to use Excel's built-in styles, how to modify styles, and how to create your own. You'll also learn how to use your custo…

772 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

16 Experts available now in Live!

Get 1:1 Help Now