Delphi'de Metin Parçalama

Delphi 7'de metinleri parçalamakta(bölmekte) kullandığım, çok iş gören bir fonksiyon:

function Parse(Char, S: string; Count: Integer): string;
var
  I: Integer;
  T: string;
begin
  // Parse a string, for example:
  // How do I get the "B" from "A|B|C|D|E|F"?
  //ShowMessage(Parse('|', 'A|B|C|D|E|F', 2));
  //ShowMessage(Parse('|', 'SERKAN ÖZER|85|70|50', 2));
  if S[Length(S)] <> Char then
    S := S + Char;
  for I := 1 to Count do
  begin
    T := Copy(S, 0, Pos(Char, S) - 1);
    S := Copy(S, Pos(Char, S) + 1, Length(S));
  end;
  Result := T;
end;

 

23.04.2020 07:00:00


Etiketler: delphi fonksiyonları

Yorumlar

Bu yazıya henüz yorum yapılmamış.

Yazı hakkında yorum yapmak için, buraya tıklayın.

Kategoriler :

Arşiv :

Etiketler :

Bağlantılar :