Скачать: CL | DM;

Поиск и удаление символов   Найти похожие ветки 

← →
Thor234   (2005-10-03 01:30) [0]

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

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

---

← →
GanibalLector ©   (2005-10-03 01:41) [1]

Pos,Delete or Copy

---

← →
Германн ©   (2005-10-03 01:46) [2]

Если бы сей топик был в "для начинающих", ответил бы точно.

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

---

← →
HF-Trade ©   (2005-10-03 02:02) [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;

---

← →
HF-Trade ©   (2005-10-03 02:04) [4]

Это не лучший способ, но наглядный, а Del получше... Сам почитай в справке...

---

← →
Defunct ©   (2005-10-03 02:12) [5]

HF-Trade ©   (03.10.05 02:04) [4]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.024 c