Функции для работы со строками

Тема в разделе "Delphi - Система", создана пользователем -, 10 окт 2004.

Статус темы:
Закрыта.
  1. Гость

    Подскажите где скачать описание таких ф-ий. В часности инересует как сделать так чтобы при вводе строки в эдит не зависимо от того вводишь большими буквами или нет, первая буква вводилась большой а остальные маленькими.
     
  2. zubr

    zubr Гость

    Оля

    Именно такую функцию я не встречал, ее легко можно сделать самому. Сами функции работы со строками есть в Help. Русский Help можешь скачать здесь. В твоем случае код можно сделать так:
    Код (Text):
    procedure TForm1.Edit1Change(Sender: TObject);
    var
    s, s1:string;
    begin
    If Edit1.Text='' then
    exit;
    s:=AnsiLowerCase(Edit1.Text);//переводит в нижний регистр
    s1:=AnsiUpperCase(s[1]);//выдирает первую букву
    Delete(s, 1, 1);//удаляет первую букву
    s:=s1+s;//формирует строку
    Edit1.Text:=s;
    Edit1.SelStart:=Length(Edit1.Text);//переводит курсор в конец строки
    end;
     
  3. dex0r

    dex0r Гость

    zubr, ты конечно все правильно написал, но! очень криво :)

    Код (Text):
    procedure TForm1.Edit1Change(Sender: TObject);
    begin
    if length( Edit1.Text ) = 0 then exit;

    Edit1.Text := AnsiUpperCase(Edit1.Text[1]) + AnsiLowerCase( copy(Edit1.Text, 2, length(Edit1.Text) ) );
    Edit1.SelStart:=Length(Edit1.Text);
    end;
     
  4. zubr

    zubr Гость

    dex0r, криво, зато понятно. Это здесь 3 строки кода, а когда код большой и где то ошибся - ищи тогда. Или ты не ошибаешся :(
     
  5. Barmutik

    Barmutik Гость

    Я предложу свой вариант:

    Код (Text):
    procedure TForm1.Edit1Change(Sender: TObject);
    var
    SelPos: Integer;
    begin
    SelPos := Edit1.SelStart;
    Edit1.Text := AnsiProperCase(Edit1.Text, []);
    Edit1.SelStart := SelPos;
    end;
     
  6. zubr

    zubr Гость

    Barmutik

    Я что то не нашел функцию AnsiProperCase, правда я только в Delphi5 искал.
     
  7. Barmutik

    Barmutik Гость

    Моя оплошность... модуль StrUtils - в нем много полезных функций для работы со строками...
     
  8. Barmutik

    Barmutik Гость

    Опять же дополнюсь .. модуль из RX- Delphi 5, Jedi - для Delphi 7
     
Загрузка...
Статус темы:
Закрыта.

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