перевести из Delphi в Visualc++2005

Тема в разделе "MS Visual C++", создана пользователем Val, 24 дек 2006.

Статус темы:
Закрыта.
  1. Val

    Val Гость

    ДАНА ЧАСТЬ ТЕКСТОВОГО РЕДАКТОРА! ПОМОГИТЕ ПЕРЕДЕЛАТЬ НЕСКОЛЬКО ПРОЦЕДУР!

    procedure TForm1.OpenClick(Sender: TObject);

    begin
    If OpenDialog1.Execute
    Then
    begin
    Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
    Norm.Enabled := True;
    end;
    end;

    procedure TForm1.NormClick(Sender: TObject);
    Var
    s: String;
    i,j: Integer;
    iskl: string;
    begin

    iskl:='0123456789'+
    'ABCDEFGHIJKLlMNOPQRSTUVWXYZ'+
    '.,?!:;-+}{)(*&^%$<>%$#@/|\_`"'+#39;
    //+#13+#10;
    s:=AnsiUpperCase(Memo1.Text);

    {УДАЛЕНИЕ СЛУЖЕБНЫХ СИМВОЛОВ}
    For i:=0 to Length(iskl) do
    s:=StringReplace(s,iskl,'',[rfReplaceAll]);
    s:=StringReplace(s,'ё','Е',[rfReplaceAll]);
    s:=StringReplace(s,'Ё','Е',[rfReplaceAll]);
    {УДАЛЕНИЕ СДВОЕНЫХ ПРОБЕЛОВ/ЗАМЕНА НА ОДИНАРНЫЕ}
    repeat
    j:=Pos(' ',s);
    if j>0 then s:=StringReplace(s,' ',' ',[rfReplaceAll]);
    until j<=0;

    Memo2.Text:=s;
    Code.Enabled := True;
    Save.Enabled := True;
    end;

    procedure TForm1.SaveClick(Sender: TObject);
    begin
    If SaveDialog1.Execute Then
    Memo2.Lines.SaveToFile(SaveDialog1.FileName);
    end;
     

    Вложения:

    • _______.rar
      Размер файла:
      411,1 КБ
      Просмотров:
      61
  2. 62316e

    62316e Гость

    Неужели лень MSDN открыть?
    для загрузки текста с файла:
    Код (Text):
          try
    {
    // Create an instance of StreamReader to read from a file.
    // The using statement also closes the StreamReader.
    using (StreamReader sr = new StreamReader("TestFile.txt"))
    {
    String line;
    // Read and display lines from the file until the end of
    // the file is reached.
    while ((line = sr.ReadLine()) != null)
    {
    Console.WriteLine(line);
    }
    }
    }
    catch (Exception e)
    {
    // Let the user know what went wrong.
    Console.WriteLine("The file could not be read:");
    Console.WriteLine(e.Message);
    }
    также у String есть Replace и ToUpper
     
  3. Val

    Val Гость

    Мне нужно немного не то.
    То что Вы написали я поняла!
    Но мне нужно не в консоле,а сделать как в текстовом редакторе:
    на форме создается меню и в нем кнопка.например, "создать", также используется OpenDialog
    как мне открыть текстовый файл и занести его содержимое, например в TextBox (как в Memo в Delphi).
    Может я глупые и элементарные вопросы задаю,но мне сложно разобраться с Visual Studio C++ 2005!
    Тем более мне надо делать под Net! Препод издевается! Заставил самим разбираться с нуля!
     
Загрузка...
Похожие Темы - перевести из Delphi
  1. Dimkawshm
    Ответов:
    3
    Просмотров:
    1.243
  2. Ластик
    Ответов:
    3
    Просмотров:
    1.483
  3. marik22222
    Ответов:
    1
    Просмотров:
    1.205
  4. GoldenYear
    Ответов:
    0
    Просмотров:
    1.167
  5. Реник
    Ответов:
    1
    Просмотров:
    1.235
Статус темы:
Закрыта.

Поделиться этой страницей