Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 06.06.2012, 10:10   #1
m1zantrop
Форумчанин
 
Регистрация: 11.04.2012
Сообщений: 103
По умолчанию изменить путь для считывания текста

всем привет.

у меня программа тестирования, на данный момент у меня грузится через компбобокс, название и вопросы с файла что лежат в папке. я сделал так бросил на форму мемо1 и опен дайлог, по щелчку на баттон1 он загружат выбранный файл в мемо1. как сделать так что бы вопросы начали считываться с мемо1. а не с файла.

вот код

Цитата:
procedure TForm1.FormCreate(Sender: TObject);
begin
i:=0;
while FileExists(ExtractFilePath(applicat ion.ExeName)+TestName+inttostr(i)+' .bin') do
begin
application.ProcessMessages;
s:=tstringlist.Create;
s.LoadFromFile(ExtractFilePath(appl ication.ExeName)+TestName+inttostr( i)+'.bin');
if s.Text<>'' then
TestBox.Items.Add(s.Strings[0]);
s.Free;
inc(i);
end;
end;

procedure TForm1.LoadTest(Index: Integer);
var
s: Tstrings;
j,h: integer;

begin
h:=0;
s:=Tstringlist.Create;
s.LoadFromFile(ExtractFilePath(appl ication.ExeName)+TestName+inttostr( Index)+'.bin');
if s.Text<>'' then
begin
Form1.Caption:=s.Strings[0];
for j:=1 to s.Count - 1 do
begin
if s.strings[j]='__________' then
begin
QuestionText[h]:=s.Strings[j+1];
QuestionText1[h]:=s.Strings[j+2];
QuestionText2[h]:=s.Strings[j+3];
QuestionText3[h]:=s.Strings[j+4];
QuestionText4[h]:=s.Strings[j+5];
AnswerQuestion[h]:=strtoint(s.Strings[j+6]);
inc(h);
end;
end;
end;
s.Free;
LoadQuestion(now);
end;
пытался
Цитата:
s.LoadFromFile(ExtractFilePath(appl ication.ExeName)+TestName+inttostr( Index)+'.bin');
заменять на
s.LoadFromFile(Memo1.Lines.Text);

но не выходит
m1zantrop вне форума Ответить с цитированием
Старый 06.06.2012, 10:33   #2
m1zantrop
Форумчанин
 
Регистрация: 11.04.2012
Сообщений: 103
По умолчанию

вопрос исчерпан)))
m1zantrop вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Программа для считывания информации с сайта BENDER.VII Общие вопросы Delphi 4 09.02.2012 21:10
Как изменить путь гиперссылки Людмилка Microsoft Office Excel 2 07.12.2011 09:31
Изменить путь к БД Access Andrey85 БД в Delphi 9 14.11.2010 16:23
Изменить RecordSize после части считывания. Alex Cones Общие вопросы Delphi 4 15.01.2010 18:24
Процедура для считывания значений переменных xPAL Общие вопросы Delphi 4 07.12.2008 19:23