» Вопросы по Delphi (все версии) - часть 3

skinash
в D2007 фишка тож прокатила %)

Здравствуйте есть вопрос, на который я хочу получить ответ. Подскажите пожалуйста я открываю текстовый файл в TMemo, как мне удалить определенные строки в TMemo. Допустим вторую строку. Спасибо.

как получить список обектов отображаемых в TWebBrowser?

skinash, это еще не все! Если при игре сбить надпись "DeXter", а затем "Hellow World" и выйти, то в меню среды после Help появится кнопочка без надписи. Нажимаем на нее и видим фотографии разработчиков

cs137
ДУМ, где дум или квэйк %)

А для D2007 вместо "DeXter" сбивать "Spacely/Cogswell"

Добавлено:

xy
IDKFA IDDQD

MsdLamer

Цитата:

Здравствуйте есть вопрос, на который я хочу получить ответ. Подскажите пожалуйста я открываю текстовый файл в TMemo, как мне удалить определенные строки в TMemo. Допустим вторую строку. Спасибо.

Memo1.Lines.Delete(1);

MsdLamer
Memo1.Lines.Delete(1);


Добавлено:
idiMAN
синхронно получилось =))

Добавлено:
cs137
Фигасе, получается они новую верисю игры вставили в D2007 хехе

хорошо спасибо, и еще вопросик а как удалить пустую строку в конце TMemo, подскажите плиз.

MsdLamer
Memo1.Lines.Delete(Memo1.Lines.Count-1);

Добавлено:
cs137
Опа, а на фотке город St.Petersburg - это наш? Или тот, где родина Тома Сойера?

MsdLamer
if Memo1.Lines.Strings[Memo1.Lines.Count-1] = '' then Memo1.Lines.Delete(Memo1.Lines.Count-1);

skinash
Наш Это тот, что Петр 1 строил! Вил скока в разработчиках русских имен и фамилий

Добавлено:
Еще пасхалки
В Builder 6 и Delphi 7 для просмотра фотографии разработчиков необходимо перед запуском среды зажать Shift + Ctrl. Вместо обычного сплэш-скрина появиться общая фотография
В Delphi 7 в About при нажатой кнопке Alt набираем слово TEAM. Появиться окно с бегущим списком перечисляющим имена разработчиков в стиле звездных воин. Стрелками вверх, вниз, вправо, влево можно вращать список. Ну дык вот, если стрелкой вверх перевернуть список на 180 градусов, то вместо него появится надпись "Use the Source, Luke"

cs137
так это ты эти штуки туда и запихиваешь :-?

еще один вопрос по Tmemo как удалить последнюю пустую строку в Memo, чтобы её не было... Спасибо

MsdLamer
while Memo1.Lines.Strings[Memo1.Lines.Count-1] = '' do Memo1.Lines.Delete(Memo1.Lines.Count-1);

xy
Неа, у меня работа чуть посерьезнее. Этим заняты скорее всего наши американские друзья (чего же им еще остается делать)

cs137
так признавайся где ты на фотографии ;)

xy, меня там нет. Туда только большие начальники попадают.
З.Ы.: Мне даже эти продукты не предлагаются бесплатно. Скидки и все. Так что, я как и все нормальные люди работаю дома на подлеченых вариантах

приветствую.. проблема такая

На форме1 кликается кнопка. Кнопок 10. При клике параметру WhichBtn присваивается значение равное номеру кликнутой кнопки.

Теперь вопрос - как сделать чтобы при действии (не важно каком) совершалось следующее: (я не знаю синтаксиса и поетому спрашиваю)

Button[WhichBtn].Caption := '123';

То есть вместо WhichBtn автоматом должно подставиться его значение. Если оно равно 1 то получилось бы так:

Button1.Caption := '123';

только что-то я не пойму можно ли такие сделать... Можно еще реализовать через условия но это очень долго, ибо много кнопок и для каждой придется своё писать

Для каждой кнопки укажи одно и то же событие OnClick
А далее используй (Sender as TButton) вместо Button[WhichBtn] и все!

2Polkan
Поставь на все кнопки один обработчик, в котором:

(Sender as TButton).Caption:='123';

я не так немного объяснил

ну ладно, проблему уже решил избавлением от кнопок)

теперь другое, наверное нупское =\ но там где искал не нашол...

Надо в мемо (или предложите какой нить другой многострочный редактор) найти строку типо

"Потеряно 12 из 100 юнитов А"

типо анализ для игрухи)

Таких строк много, допустим я выцепил одну и ее нада проанализировать чтобы переменной 1 присвоилось значение 12, второй - 100 - как лучше это сделать?

2Polkan
строка всегда формата "Потеряно X из Y юнитов А"?

А можно-ли как-нить запустить одну программу через другую, чтобы первая была не видна в процессах(в смысле как-бы один процесс на две программы)???

P.S. Если спросил фигню - то извините

пользовался вот этим исходником для вставки в ячейки Excel, подскажите пожалуйста как теперь закрыть этот файлик и сохранить к примеру на 'C:\отчеты\' с текущей датой на конце (Отчет_15_08_07.xls). Спасибо.
uses ..., comobj;

procedure
var XL:Variant;
s:string;
row,col:integer;
begin
try
try XL := GetActiveOleObject('Excel.Application');
except XL := CreateOleObject('Excel.Application');
end;
except
raise Exception.Create('Can nor run Excel');
End;
XL.Visible := True;
XL.Workbooks.Add('Отчет.xls');
// s:=прочитать значение из файла
// row:= ... ; col:=... ;
XL.Cells[row, col].Value:=s;
end;

GreatOne
можно написать службу и запустить ее, тогда в процессах будет название svchost.exe (один из трех-пяти)

скрыть процессы в winnt нельзя.

MsdLamer
Сохрани ссылку на созданную книгу:
WB := XL.Workbooks.Add('Отчет.xls');
и потом сохрани ее:
WB.SaveAs('C:\Отчеты\Отчет_' + FormatDateTime('dd_mm_yy', Now) + '.xls');
Если будут нужны еще какие-нибудь параметры можешь глянуть в самом Excel (так проще всего узнать как программно сделать то или иное действие) - начинаешь запись макроса, делаешь то, что нужно, останавливаешь запись, смотришь макрос, нужное переносишь себе в программу

2Polkan
Я так понимаю, тебе нужен парсер (анализатор) строки. Есть такой класс TParser, им Delphi *.dfm файлы разбирает. Правда этот класс не документирован. Вот пара примеров:
[more=Пример 1]Простое использование TParser
--------------------------------------------------------------------------------

Автор: Mike Scott

...можно ли с помощью TParser "вытащить" из строки целочисленные значения, разделенные между собой пробелом, например, из строки '345 998 223 546 777' получить пять чисел?

Как этот пример? Он парсирует текст из поле редактирования с именем Edit1 и помещает полученные числа с список с именем Listbox1:



Код:
procedure TForm1.Button1Click(Sender: TObject);
var
Stream: TStream;
s: string;
begin
Stream := TMemoryStream.Create;
try
{ получаем текст области редактирования и помещаем его в поток }
s := Edit1.Text;
Stream.WriteBuffer(s[1], length(s));
{ сбрасываем стартовую позицию потока и создаем парсер }
Stream.Position := 0;
with TParser.Create(Stream) do
try
{ "добываем" числа и добавляем их в список }
while Token <> toEOF do
begin
CheckToken(toInteger); { возбуждаем исключение, если не toInteger }
Listbox1.Items.Add(IntToStr(TokenInt));
NextToken;
end;
finally
Free;
end;
finally
Stream.Free;
end;
end;

Подскажите пожалуйста как реализовать вот такой вопрос.
Нужно прочитать из текстового файла все строки, строки начинающиеся на # игнорировать и обработать параметры
login=вася, pass=123, и т.д. и чтоб их можно было потом использовать например так winexec('cmd /c '+login,sw_show);
Чтоб настройки читались как в Apache =)

kalkin
TIniFiles?

не пытаюсь все в массив загнать и оттуда работать.

Читай файл построчно и обрабатывай как надо тебе...