掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
#0で区切られたデータを扱うには？ (ID:15726)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
procedure TForm1.Button1Click(Sender: TObject); var sStream: TStringStream; MemStream : TMemoryStream; ch : Char; RoopSize ,RoopPosition : Int64; s: string; begin s := 'A'#0'B'#0'C'#13#10; MemStream:= TMemoryStream.Create; sStream:= TStringStream.Create(''); try // 文字を代入 MemStream.WriteBuffer(s[1],Length(s)); // MemStream.LoadFromStream(); RoopSize := MemStream.Size; MemStream.Position := 0; RoopPosition := 0; With MemStream do While (RoopPosition <= RoopSize-1) do begin ReadBuffer(ch ,1); if Ord(ch) = 0 then begin Position := RoopPosition; ch := ','; Write(ch ,1); // Position := RoopPosition+1; end; RoopPosition := RoopPosition +1; end; // 文字を取り出し sStream.CopyFrom(MemStream,0); Edit1.Text := sStream.DataString; finally MemStream.Free; sStream.Free; end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.