Подскажите - как реализовать?

@still-rise · Регистрация: 30.09.2012

Студворк — интернет-сервис помощи студентам

Приветствую!
Подскажите как можно реализовать следующее:
Имеются 3 файла на сайте(site.ru к примеру)
site.ru/text.php
со следующим содержимым:

PHP
1
2
3
4
<?php
//123
//321
?>

site.ru/1.php

PHP
1
2
3
<?php
//покажи меня при 123
?>

site.ru/2.php

PHP
1
2
3
<?php
//покажи меня при 321
?>

так вот,в программе едит и кнопка,как сделать что бы если ввордишь в эдит 123(тоесть из файла text.php вторую строку с игнорироваением слэшей)
то в шоумэседж покажется текст из 1.php(тоже со второй строки и игнорированием слэшей)
а если ввести 321
то в шоумэседж покажется текст из 2.php

@still-rise · 07.03.2013, 20:53 **[ТС]**

Сообщение от Mawrat

Переименовал.

спасибо!

kaspersky, не,не допёрло,щас выложу программу

Добавлено через 5 часов 11 минут
вот так вот
надо сделать билдер,в котором будет 2едита,кнопка,2 мемо
и что бы едит1 изменял значение переменной pas,edit2 изменял pass,memo1 изменял mes,а мемо2 изменял mess

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
pas,pass,mes,mess:string;
begin
memo1.Lines.Clear;
pas:='123a';
pass:='321b';
mes:='pass was 123';
mess:='pass was 321' ;
if edit1.Text=pas then
  memo1.Lines.Add(mes)
else
  if edit1.Text=pass then
    memo1.Lines.Add(mess)
  else
    showmessage('Неверный пароль!');
 
end;
 
end.

Новые блоги и статьи Все статьи Все блоги /
Саморегулирующийся социальный контракт для сервера cross-section. Hrethgir 14.08.2026 С кодом конечно таких глубоких размышлений пока не было, впрочем я уже привык к алгоритмизации. Суть предмета записи: снова в диалоге с нейросетью (я взял пока себе ник для учётки админа - Rector). . . .	Часы электронные Uhbif79 12.08.2026 Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .	Часы с будильником на основе класса QLCDNumber Uhbif79 12.08.2026 Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .	Установка MinGW GCC 16.2 и CMake 8Observer8 10.08.2026 VK Видео: https:/ / vkvideo. ru/ video-240781534_456239017 YouTube: eY5-5PyI9NM Текстовая версия
Неделя из жизни имитационной модели склада: мои кривые руки растут, откуда надо anaschu 10.08.2026 Неделя из жизни имитационной модели склада: как я почти написал неправильную логику и что с этим делать Работаю сейчас над учебно-рабочим проектом: строю в AnyLogic имитационную модель процессов. . .	Калькулятор для расчета родства russiannick 07.08.2026 1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь	Мир по моей воле kumehtar 07.08.2026 Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .	Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .