Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.06.27;
Скачать: [xml.tar.bz2];

Вниз

тексовые файлы   Найти похожие ветки 

 
mika   (2004-06-14 12:50) [0]

C помощью этого кода я нахожу строку в текстовом файле
c:=Edit1.Text;
s:=Edit2.Text;
v:=RichEdit1.Text;
Assignfile(infile,FileOpen1.Dialog.FileName);
{$i-}
Reset(InFile);
{$I+}
if IOResult<>0 then
begin
 MessageBox(Application.Handle,PChar(" "+FileOpen1.Dialog.FileName),"??????", MB_ICONWARNING);
 Exit;
 end;

while not Eof(InFile) do
begin

 Readln(InFile, g);

if  g=c then begin  {writeln(InFile,s);}
ShowMessage("Строка"+" "+c+" "+ "найдена")
подскажите как мне заменить ее на другую


 
vidiv ©   (2004-06-14 13:02) [1]

var sl:TStringList;
i:integer;
s:string;

s:=Edit2.Text; // Ищем
c:=Edit1.text; // Меням на

sl := TStringList.create();
sl.loadfromfile(<откуда грузим>);
if sl.count>0 then
 for i:=0 to sl.count-1 do
     if sl[i]=s then
        begin
           showmessage("Строка S найдена");
           sl[i] := c; // Поменяли
        end;
sl.savetofile(<куда сохраняем, вообще тудаже откуда и грузим>);
sl.free;



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

Форум: "Основная";
Текущий архив: 2004.06.27;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.037 c
1-1087018221
Delphi5.01
2004-06-12 09:30
2004.06.27
Как возможно профессионально реализовать поддержку скинов програм


1-1086866739
вопросик
2004-06-10 15:25
2004.06.27
вопросик по Tchart


14-1086808372
Феликс
2004-06-09 23:12
2004.06.27
Вопрос про Visual Basic и макрос


8-1080722002
Pul
2004-03-31 12:33
2004.06.27
Битмап в метафайле


9-1077701134
Cash
2004-02-25 12:25
2004.06.27
Красивое оформление





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский