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

← →
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;

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

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

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

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

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