Want to win a PS4? Go Premium and enter to win our High-Tech Treats giveaway. Enter to Win

x
?
Solved

How to have my program ask for input?

Posted on 2007-11-30
3
Medium Priority
?
170 Views
Last Modified: 2010-04-21
Hi Folks!

I have about 20 questions to ask. For example:

1.Whats the best Delphi resource on the internet?
2.How many questions did you ask already?
3.Do you ever answer questions yourself?
4. and so on.....

Ofcourse it should report the answers, preferrably in a simple text document, prefixed by the questions. Like this:

1.Whats the best Delphi resource on the internet?
EE ofcourse!!
2.How Many questions did you ask already?
A billion!

Now there must be a way to feed questions (by using textdocument) to the program withouth a message dialog for each question.....and still collect all answers....who can help me out here? (sample code please)

Kindest regards,

Dweeeeeeepsta

0
Comment
Question by:PeterdeB
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 2
3 Comments
 
LVL 28

Expert Comment

by:2266180
ID: 20385204
well, it depends on how you feed the data, or more better said, in what format you have the questions.

for exmaple, if you have the questions in one text document, one question per line, you can do something like in the attached code (written directly in the browser but should work just fine. let mw know if it doesn't; I'll then fire up an IDE to test it :P

is this something that you are looking for? if not, I'll need more detail explanation on what youa re trying to do.


var s,t:tstringlist;
    i:integer;
    a:string;
begin
  s:=tstringlist.create;
  try
    t:=tstringlist.create;
    try
      s.loadfromfile('questions.txt');
      for i:=1 to s.count do
      begin
        if not InputQuery('Give your answer', s[i-1], a) then
          a:='';// no answer given
        t.add(s[i-1]);// store question
        t.add(a);// store answer
      end;
    finally
      freeandnil(t);
    end;
  finally
    freeandnil(s);
  end;
end;

Open in new window

0
 
LVL 28

Accepted Solution

by:
2266180 earned 2000 total points
ID: 20385208
forgot to 'save" :)
var s,t:tstringlist;
    i:integer;
    a:string;
begin
  s:=tstringlist.create;
  try
    t:=tstringlist.create;
    try
      s.loadfromfile('questions.txt');
      for i:=1 to s.count do
      begin
        if not InputQuery('Give your answer', s[i-1], a) then
          a:='';// no answer given
        t.add(s[i-1]);// store question
        t.add(a);// store answer
      end;
      t.savetofile('list.txt');// save it to text file
    finally
      freeandnil(t);
    end;
  finally
    freeandnil(s);
  end;
end;

Open in new window

0
 

Author Closing Comment

by:PeterdeB
ID: 31412020
Haha bullls eye!!

Thank you sooo much my friend!

Regards,

Dweeeeeep ;-)
0

Featured Post

Keep up with what's happening at Experts Exchange!

Sign up to receive Decoded, a new monthly digest with product updates, feature release info, continuing education opportunities, and more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

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…
Introduction I have seen many questions in this Delphi topic area where queries in threads are needed or suggested. I know bumped into a similar need. This article will address some of the concepts when dealing with a multithreaded delphi database…
Visualize your data even better in Access queries. Given a date and a value, this lesson shows how to compare that value with the previous value, calculate the difference, and display a circle if the value is the same, an up triangle if it increased…
Are you ready to place your question in front of subject-matter experts for more timely responses? With the release of Priority Question, Premium Members, Team Accounts and Qualified Experts can now identify the emergent level of their issue, signal…
Suggested Courses

618 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