掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
誰か教えてください (ID：1645)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
単純に考えるならば、区切り文字を見つけてそこまでの値を使う、ですね。 あまり綺麗なソースではありませんが、「各変数へ分解して格納する」プロシージャです。 速度面を考えるならば、もう少し違う手法を取る必要があると思います。 １行ずつ読みとるのは、TStringList.LoadFromFileなどで対処出来ます。 procedure SplitLine(Text: String; var t1,t2,t3,t4,t5,t6,t7: string); var i: integer; begin i := Pos('[', Text); t1 := Trim(Copy(Text, 1, i - 1)); Text := Copy(Text, i+1, Length(Text)); i := Pos(']', Text); t2 := Trim(Copy(Text, 1, i - 1)); i := Pos('{', Text); Text := Copy(Text, i+1, Length(Text)); i := Pos(',', Text); t3 := Trim(Copy(Text, 1, i - 1)); Text := Copy(Text, i+1, Length(Text)); i := Pos(',', Text); t4 := Trim(Copy(Text, 1, i - 1)); Text := Copy(Text, i+1, Length(Text)); i := Pos(',', Text); t5 := Trim(Copy(Text, 1, i - 1)); Text := Copy(Text, i+1, Length(Text)); i := Pos(',', Text); t6 := Trim(Copy(Text, 1, i - 1)); Text := Copy(Text, i+1, Length(Text)); i := Pos('}', Text); t7 := Trim(Copy(Text, 1, i - 1)); end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.