Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Поиск и удаление символов

Thor234 © (2005-10-03 01:30:00)
Ребят подскажите как сделать такую вещь:
есть поле memo1 в нем открывается текстовый документ(это уже сделано), нужно чтобы в каждой строке проверялось на наличие символов \\ , и все после двойного слеша до конца строки удолялось(включая слеши) и так далее к новой строке.
Короче говоря русским языком во всем файле удалить все комментарии.

Помогите пожалуста решить эту проблему нужно срочно.

Defunct (2005-10-03 02:12:00) [1]
HF-Trade © (03.10.05 02:04) [4]

> Это не лучший способ, но наглядный, а Del получше...

Наглядным он станет лишь только если Вы его отформатируете должным образом, а так это просто набор каких-то строк толи на Pascal то ли на GW-Basic. ;>

HF-Trade (2005-10-03 02:04:00) [2]
Это не лучший способ, но наглядный, а Del получше... Сам почитай в справке...

HF-Trade (2005-10-03 02:02:00) [3]
procedure TForm1.Button1Click(Sender: TObject);
Var
LCount:Integer;
PosReturn:Integer;
Begin
For Lcount:=0 to Memo1.Lines.Count-1 do
Begin
PosReturn:=Pos('\\',Memo1.Lines[LCount]);
IF PosReturn<>0 Then
Begin
Edit1.Text:=Memo1.Lines[LCount];
Edit1.SelStart:=PosReturn-1;
Edit1.SelLength:=Length(Edit1.Text)-PosReturn+1;
Edit1.CutToClipboard;
Memo1.Lines[LCount]:=Edit1.Text;
end;
end;
end;

Германн (2005-10-03 01:46:00) [4]
Если бы сей топик был в "для начинающих", ответил бы точно.

А тут вылезают вопросы:
Если нужно удалить из файла всекомментарии, то "два слэша" - это не единственный способ комментирования. Кроме того, эти "два слэша" всё-таки //, а не \\.

GanibalLector (2005-10-03 01:41:00) [5]
Pos,Delete or Copy

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »